Kod Birleştirme

[Seyit Tiken]

Selamün Aleyküm,
Arkadaşlar aşağıdaki iki satırlı kodu nasıl tek satırlı kod haline getirebiliriz?, şimdiden teşekkür ediyorum, Allah razı olsun.

Range(Cells(Target.Row, "B"), Cells(Target.Row, "F")).Interior.Color = 9420794
Range(Cells(Target.Row, "H"), Cells(Target.Row, "S")).Interior.Color = 9420794

 

[uzmanamele]

Selamün Aleyküm,
Arkadaşlar aşağıdaki iki satırlı kodu nasıl tek satırlı kod haline getirebiliriz?, şimdiden teşekkür ediyorum, Allah razı olsun.

Range(Cells(Target.Row, "B"), Cells(Target.Row, "F")).Interior.Color = 9420794
Range(Cells(Target.Row, "H"), Cells(Target.Row, "S")).Interior.Color = 9420794

Merhaba
Bunun gibi mi?

Range(Cells(Target.Row, "B"), Cells(Target.Row, "S")).Interior.Color = 9420794
Cells(Target.Row, "G").Interior.Color = xlNone

 

[Seyit Tiken]

Süleyman bey yardımlarınız çok teşekkür ediyorum. Kodu tam olarak kopyalıyorum, belki daha iyi anlaşılır.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Intersect(Target, [B7:D7,H7:S36]) Is Nothing Then Exit Sub
[B7:F36,H7:S36].Interior.Color = 15395562
Range(Cells(Target.Row, "B"), Cells(Target.Row, "F")).Interior.Color = 9420794
Range(Cells(Target.Row, "H"), Cells(Target.Row, "S")).Interior.Color = 9420794
End Sub

B:F ile H:S kod satırı birleştirilip tek satırlı bir koda dönüştürülmesi gerek, teşekkür ediyorum.

 

[uzmanamele]

Süleyman bey yardımlarınız çok teşekkür ediyorum. Kodu tam olarak kopyalıyorum, belki daha iyi anlaşılır.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Intersect(Target, [B7:D7,H7:S36]) Is Nothing Then Exit Sub
[B7:F36,H7:S36].Interior.Color = 15395562
Range(Cells(Target.Row, "B"), Cells(Target.Row, "F")).Interior.Color = 9420794
Range(Cells(Target.Row, "H"), Cells(Target.Row, "S")).Interior.Color = 9420794
End Sub

B:F ile H:S kod satırı birleştirilip tek satırlı bir koda dönüştürülmesi gerek, teşekkür ediyorum.

Merhaba
Bu mudur?

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Intersect(Target, [B7:D7,H7:S36]) Is Nothing Then Exit Sub
[B7:F36,H7:S36].Interior.Color = 15395562
Range(Cells(Target.Row, "B"), Cells(Target.Row, "S")).Interior.Color = 9420794
Range("G7:G36").Interior.Color = xlNone
End Sub

 

[Seyit Tiken]

Süleyman bey, teşekkür ediyorum, Allah razı olsun, eylemi biraz hızlandırmak için iki kod satırını birleştirmek istedik, normalde eylem gerçekleşiyor. Kodun açılımı : Kod aktif satırın H'den S'ye kadar renklendiriyor, burda istenilen, B ile F satırını da ekleyip kodu çalıştırmaktır, yani G satırında/sütununda kod etki etmeyecek.

 

[Korhan Ayhan]

Merhaba,

Aşağıdaki gibi deneyiniz.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Dim Alan, X As Long
    If Intersect(Target, [B7:D36,H7:S36]) Is Nothing Then Exit Sub
    [B7:F36,H7:S36].Interior.Color = 15395562
    X = Target.Row
    Set Alan = Union(Range("B" & X & ":F" & X), Range("H" & X & ":S" & X))
    Alan.Interior.Color = 9420794
End Sub

 

[Seyit Tiken]

Korhan bey tebrik ediyorum, Allah razı olsun, işlem tamam, Süleyman bey ilgi ve çabanızdan dolayı teşekkür ediyorum.

 

[uzmanamele]

Merhaba

Union komutunun adını hatırlasam becerecektim ama malum nedenlerden aklıma gelmedi

*Malum neden saat ile ilgili