Forumda emeği geçen herkese merhaba. Arkadaşlar aşağıdaki kodlarda G21:G620 aralığını AH19 daki değerle karşılaştırıyorum. Eğer eşitlik var ise F sütunundaki değeri yazdırıyorum. Buraya kadar aslında sorun yok. Sorun şu : Bulduğum eşitlikleri AH 22 den itibaren altalta yazdıramıyorum. AH sütununda ilgili satırlara yazıyor. Atıyorum eşitlik G100 ise AH100 e F100 ün değerini yazıyor. Aslında sorunun nerde olduğunu biliyorum ama bir türlü doğru kodu yazamadım.
j = [G65536].End(3).Row
Range("AH22:AI" & j).ClearContents
k = [AH65536].End(3).Row + 1
If k < 22 Then k = 22
k = k + 1
For a = 21 To j
If Cells(a, "G") = Cells(19, "AH") Then
Cells(a, "AH") = Cells(a, "F")
End If
k = k + 1
Next a
j = [G65536].End(3).Row
Range("AH22:AI" & j).ClearContents
k = [AH65536].End(3).Row + 1
If k < 22 Then k = 22
k = k + 1
For a = 21 To j
If Cells(a, "G") = Cells(19, "AH") Then
Cells(a, "AH") = Cells(a, "F")
End If
k = k + 1
Next a