buton yardımı

[okanoze]

iyi çalışmalar
ekteki çalışmada ilk sayfadaki verilerin ikinci sayfaya buton yardımı ile üzerine yazmasını istiyorum(örnek:ilk sayfada d 001 in karşısındaki ismin,ikinci sayfadaki d 001 in üzerine yazmasını istiyorum)

ilginiz için teşekkürler ,yardımlarınızı bekliyorum

 

[Recep İpek]

ilk sayfada d 001 in karşısındaki ismin,ikinci sayfadaki d 001 in üzerine yazmasını istiyorum)

Üzerine derken A kolununa mı yazılsın? Yoksa B kolonuma mı?

 

[okanoze]

a kolonuna

a kolonuna hepsini birden tek butonla atamak istiyorum
teşekkürler

 

[Recep İpek]

Aşağıdaki kodları deneyebilirsiniz.

Sub Kopyala()
Set s1 = Sheets("veri")
Set s2 = Sheets("anatablo")
    For i = 1 To s1.[a65536].End(3).Row
    ilk = Cells(i, "a").Value
        For j = 1 To s2.[a65536].End(3).Row
            If ilk = s2.Cells(j, "a").Value Then
                s2.Cells(j, "a").Value = Cells(i, "a").Offset(0, 1).Value
            End If
        Next j
    Next i
Set s1 = Nothing
Set s2 = Nothing
MsgBox "Bitti"
End Sub

 

[veyselemre]

2 Alternatif

Sub aktar1()
Set s_v = Sheets("veri")
Set s_a = Sheets("anatablo")
dizi = s_v.Range("a1:b" & s_v.[b65536].End(3).Row)
For x = 1 To s_a.[a65536].End(3).Row
    For y = 1 To UBound(dizi)
        If dizi(y, 1) = s_a.Cells(x, 1) Then
            s_a.Cells(x, 1) = dizi(y, 2)
            Exit For
        End If
    Next y
Next x
Set s_v = Nothing
Set s_a = Nothing
End Sub

Sub aktar2()
Set s_v = Sheets("veri")
Set s_a = Sheets("anatablo")
For x = 1 To s_a.[a65536].End(3).Row
    s_a.Cells(x, 1) = Evaluate("=VLOOKUP(""" & s_a.Cells(x, 1) & """,veri!A1:B" & s_v.[b65536].End(3).Row & ",2,FALSE)")
Next x
Set s_v = Nothing
Set s_a = Nothing
End Sub