2.ci sayfaya hücreye otomatik renk verme

[juxbox]

Merhaba arkadaşlar sayfada b2 hücresine ahmet yımaz yazdığımda çalışma sayfası2 de ki ahmet yılmazın sarı renk vermek istiyorum yardımcı olursanınız sevınırım saygılarımla


BU BELGEYİ OPPEN OFFICE DE KULANMAK İSTİYORUM YADA MICROSOFT OFİSTE

XLS OLARAK YENIDEN UPLOAD EDİLMİŞTİR

 

[halit3]

dosyan xls uzantılı değil diğer deyişle excell dosyası değil

 

[juxbox]

dosyan xls uzantılı değil diğer deyişle excell dosyası değil

xls olarak düzeltim bakarsan sevinirim kardeşim

 

[halit3]

aşağıdaki kodu çalışmasayfası1 madülünün içine koy

Private Sub Worksheet_Change(ByVal Target As Range)
a = Target.Row
b = Target.Column
ad = Worksheets("Çalışma Sayfası1").Cells(a, b).Value
If b <> "" Then
If b = 2 Then
For i = 2 To Worksheets("Çalışma Sayfası2").Cells(65536, 2).End(xlUp).Row
If Worksheets("Çalışma Sayfası2").Cells(i, 2).Value = ad Then
Worksheets("Çalışma Sayfası2").Cells(i, 2).Interior.ColorIndex = 6
MsgBox "İşlem tamam"
Exit Sub
End If
Next i
MsgBox "Aynı Kayıt bulunamadı"
End If
End If
End Sub

 

[parametre]

pardon halit arkadasımız cevap veriyor

 

[juxbox]

aşağıdaki kodu çalışmasayfası1 madülünün içine koy

Private Sub Worksheet_Change(ByVal Target As Range)
a = Target.Row
b = Target.Column
ad = Worksheets("Çalışma Sayfası1").Cells(a, b).Value
If b <> "" Then
If b = 2 Then
For i = 2 To Worksheets("Çalışma Sayfası2").Cells(65536, 2).End(xlUp).Row
If Worksheets("Çalışma Sayfası2").Cells(i, 2).Value = ad Then
Worksheets("Çalışma Sayfası2").Cells(i, 2).Interior.ColorIndex = 6
MsgBox "İşlem tamam"
Exit Sub
End If
Next i
MsgBox "Aynı Kayıt bulunamadı"
End If
End If
End Sub

bunu dosyaya uygularmısın rica etsem senden kardeşim

 

[halit3]

ekli dosyaya bakınız