sütun karşılaştırarak güncel değer girme

[quixotic79]

[/url][/IMG]

 

[Ömer]

Merhaba,

Bu şekilde deneyin.

Sub Guncelle()
 
    Dim Sa As Worksheet, Sg As Worksheet
    Dim c As Range, Adr As Variant, i As Long
    
    Set Sa = Sheets("Araç Detayları")
    Set Sg = Sheets("Güncel Km ve Saat Bilgileri")

    For i = 2 To Sa.Cells(Rows.Count, "B").End(xlUp).Row
        With Sg.Range("B:B")
            Set c = .Find(Sa.Cells(i, "B"), , xlValues, xlWhole)
            If Not c Is Nothing Then
                Adr = c.Address
                Do
                    Sg.Cells(c.Row, "AE") = Sa.Cells(i, "C")
                    Set c = .FindNext(c)
                Loop While Not c Is Nothing And c.Address <> Adr
            End If
        End With
    Next i
      
End Sub

.

 

[quixotic79]

yardım

denedim ama olmadı kardeşim örnek üzerinde incelemen mümkün mü?
http://s6.dosya.tc/server2/v9azvv/ornek_2.rar.html

 

[Ömer BARAN]

Merhaba.
Ömer Bey'in gönderdiği kodda Loop şeklinde başlayan satırın 2 üstündeki satırda yer alan kısmı aşağıdaki şekilde değiştirerek dener misiniz?

                    S[COLOR="red"][B]a[/B][/COLOR].Cells(c.Row, "AE") = S[B][COLOR="Red"]g[/COLOR][/B].Cells(i, "C")