seddur
Altın Üye
- Katılım
- 12 Nisan 2012
- Mesajlar
- 531
- Excel Vers. ve Dili
- Microsoft office professional plus 2019
- Altın Üyelik Bitiş Tarihi
- 18-12-2024
Merhaba.Aşağıdaki kod ile "Anasayfa" "A" sutununa eklediğim açıklamalar Döküm sayfasındaki veri ile karşılaştırılıyor ve eşleşen satırın "F" sutununa DOLU diye yazdırılıyor.Yapılmak istenen açıklamayı sildiğimde eşleşen satırın "F" sutunundaki DOLU ifadesini silmesi işlemidir.Uygun olursa bu kodların içine yazılsın.Yardımınız için Teşekkür ederim.
Dim i As Long, Veri, dict As Object
On Error Resume Next
Set dict = CreateObject("Scripting.Dictionary")
Veri = Range("A2:F" & Cells(Rows.Count, "A").End(3).Row).Value
'Range("F2:F" & Cells(Rows.Count, "A").End(3).Row) = ""
For i = LBound(Veri, 1) To UBound(Veri, 1)
dict.Add Veri(i, 1) & Veri(i, 2) & Veri(i, 4) & Veri(i, 5), i
Next i
For i = 1 To Sheets("Anasayfa").Cells(Rows.Count, "A").End(3).Row
Acıklama = Sheets("Anasayfa").Range("A" & i).Comment.Text
If Acıklama <> "" And dict.exists(Acıklama) Then
Range("F" & dict(Acıklama) + 1) = "DOLU"
End If
Next i
On Error GoTo 0
Dim i As Long, Veri, dict As Object
On Error Resume Next
Set dict = CreateObject("Scripting.Dictionary")
Veri = Range("A2:F" & Cells(Rows.Count, "A").End(3).Row).Value
'Range("F2:F" & Cells(Rows.Count, "A").End(3).Row) = ""
For i = LBound(Veri, 1) To UBound(Veri, 1)
dict.Add Veri(i, 1) & Veri(i, 2) & Veri(i, 4) & Veri(i, 5), i
Next i
For i = 1 To Sheets("Anasayfa").Cells(Rows.Count, "A").End(3).Row
Acıklama = Sheets("Anasayfa").Range("A" & i).Comment.Text
If Acıklama <> "" And dict.exists(Acıklama) Then
Range("F" & dict(Acıklama) + 1) = "DOLU"
End If
Next i
On Error GoTo 0
Son düzenleme: