Excel Vba Forum - Excelce.Net

SORU ve CEVAPLAR (Yazılabilir) => Microsoft Excel, Vba, Makro, Formül vb. Soruları => Konuyu başlatan: ZFRKNC - 03 Temmuz 2020, 17:20:50

Başlık: Küçük bir kod isteği
Gönderen: ZFRKNC - 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 .

Başlık: Ynt: Küçük bir kod isteği
Gönderen: Bülent Öztürk - 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.