Merhaba arkadaşlar,
birbirinden farklı sayfada bulunan iki hücreyi if döngüsü ile karşılaştırıp değerler birbirine eşit ise D kolonundan veriyi çağırmayı, değil ise listeyi aşağıya doğru kontrol etmeyi sürdürmeyi deniyorum.
Yazdığım kod şoyle:
Sub GETİR()
Dim z As Integer
Dim n As Integer
z = 15
n = 2
Do While (n < 15001)
If Aplication.Goto(ActiveWorkbook.Sheets("Kayit").Cells("A", n)).Value = ActiveSheet.Cells("I", 12).Value Then
ActiveSheet.Cells("D", z).Value = Aplication.Goto(ActiveWorkbook.Sheets("Kayit").Cells("D", n)).Value
End If
n = n + 1
z = z + 1
Loop
End Sub
muhtemelen if döngüsü veya hücreleri tanımlama şeklim hatalı. konu hakkında bilgi paylaşabilecek arkadaşlara şimdiden teşekkür ederim.
birbirinden farklı sayfada bulunan iki hücreyi if döngüsü ile karşılaştırıp değerler birbirine eşit ise D kolonundan veriyi çağırmayı, değil ise listeyi aşağıya doğru kontrol etmeyi sürdürmeyi deniyorum.
Yazdığım kod şoyle:
Sub GETİR()
Dim z As Integer
Dim n As Integer
z = 15
n = 2
Do While (n < 15001)
If Aplication.Goto(ActiveWorkbook.Sheets("Kayit").Cells("A", n)).Value = ActiveSheet.Cells("I", 12).Value Then
ActiveSheet.Cells("D", z).Value = Aplication.Goto(ActiveWorkbook.Sheets("Kayit").Cells("D", n)).Value
End If
n = n + 1
z = z + 1
Loop
End Sub
muhtemelen if döngüsü veya hücreleri tanımlama şeklim hatalı. konu hakkında bilgi paylaşabilecek arkadaşlara şimdiden teşekkür ederim.
