Gönderen Konu: Küçük bir kod isteği  (Okunma sayısı 135 defa)

0 Üye ve 1 Ziyaretçi konuyu incelemekte.

Çevrimdışı ZFRKNC

  • Excelce Onbaşı
  • **
  • İleti: 1
  • Puan +0/-0
  • Cinsiyet: Bay
  • Excel'den Daha Fazlası!..
  • Ad Soyad: ZAFER AKINCI
  • Doğum Yılınız: 1986
  • İl / İlçe: SALİHLİ/MANİSA
Küçük bir kod isteği
« : 03 Temmuz 2020, 17:20:50 »
öncelikle merhabalar; excel'de bir butonum var o butona basınca seçili hücrelerin hem rengi ,hem de ismi değişiyor ve saçilen hücreler istenilen aralıkta değilse uyarı veriyor.Kullandığım kod ;
Sub Ö_ÇATAL()
Dim hücre_fiz As Range
For Each hücre_fiz In Selection
If Not Intersect(hücre_fiz, [C6:T6]) Is Nothing Then
Selection.Interior.Color = RGB(127, 255, 212)
Selection.Value = "Ö. ÇATAL"
Else

MsgBox "SERDAR BEY , lütfen ;" & vbNewLine & "" & vbNewLine & " * FİZİK * " & vbNewLine & "" & vbNewLine & "    Satırından hücreler seçiniz..", vbOKCancel + vbInformation, " BİLGİLENDİRME ...  "
Exit Sub
End If
Next hücre_fiz

Seçilen hücreler arasında c6:t6 arasında herhangi bir hücre yok ise sıkıntı olmuyor ancak , seçilen hücreler örneğin c6 ve c7 ise bu sefer hem uyarı veriyor hem de hücrelere isim yazıp,rengini değiştiriyor.Bunu nasıl düzeltebilirim ?
Teşekkür ederim .

Çevrimdışı Bülent Öztürk

  • Excelce.Net Yönetici
  • *
  • İleti: 1346
  • Puan +19/-0
  • Cinsiyet: Bay
  • Türkçe Konuşup Excelce Yazıyoruz...
    • Bülent Öztürk
  • Ad Soyad: Bülent Öztürk
  • İl / İlçe: İstanbul / Çorlu
  • İşletim Sisteminiz: Win.10
  • Mesleğiniz: Bilgi Teknolojileri
  • Office Versiyonunuz: Office2013/2016
Ynt: Küçük bir kod isteği
« Yanıtla #1 : 05 Temmuz 2020, 09:31:08 »
Merhaba,

Tam olarak nasıl bir işlem olması gerekiyor?
Nereyi seçince ne olacak?
Seçmeyince ne olacak?

Teşekkürler.
(Ücretli program talepleriniz için iletişime geçebilirsiniz, excelvbprogram@gmail.com)