veri aktarımı

[takirti]

Ekteki dosyata örnek bir şablonum var. Sayfa2 deki verileri sayfa1 aktarmak istiyorum. Düşeyara förmülü ile yaptım. İstediğim veri aktarımını makro ile yapmak. yardımlarınız bekliyorum..

 

[takirti]

EK burda

Çalışmayı eklemeyi unutmuşum..

 

[takirti]

Yardim Edecek Kİmse Yokmu?

 

[Seyit Tiken]

Aşağıdaki örnek kodu uyarlayınız.

Sub Düğme1_Tıklat()
Sayfa2.[a6500].End(3).Offset(1) = Sayfa1.[a1]
End Sub

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki kodu denermisiniz.

Sub AKTAR()
    Dim S1, S2 As Worksheet
    Dim X, SATIR As Long
    Set S1 = Sheets("Sayfa1")
    Set S2 = Sheets("Sayfa2")
    For X = 2 To 201
    On Error GoTo Devam
    SATIR = S1.[B:B].Find(What:=S2.Cells(X, 2), LookIn:=xlValues, LookAt:=xlWhole).Row
    S1.Cells(SATIR, 3) = S2.Cells(X, 3)
    S1.Cells(SATIR, 4) = S2.Cells(X, 4)
    S1.Cells(SATIR, 8) = S2.Cells(X, 5)
    S1.Cells(SATIR, 10) = S2.Cells(X, 6)
Devam: Next
    Set S1 = Nothing
    Set S2 = Nothing
    MsgBox "VERİLER AKTARILMIŞTIR.", vbInformation
End Sub

 

[takirti]

Sayın COst COntrol verdiğiniz kodda direk hata çıktı. Bidaha bakmanın mümkünmü?

 

[Korhan Ayhan]

Selamlar,

Üstteki mesajımdaki kodu güncelledim. Tekrar denermisiniz.

Hataya sebep olan kod ise Autpen prosedürünün üstündeki Option Explicit komutundan oluşmaktadır. Eğer bu satırı silerseniz önceki önerdiğim kodda hata vermeden çalışacaktır.

 

[takirti]

Sayın Cost Control
Kodunuz mükemmel dereceye yakın kusursuz bir şekilde çalıştı. Yardımınız içim teşekkürler. Sizden ricam acaba kodu yazarken hangi mantığa göre biraz açıkayabilirseniz, bir dahaki veri aktarımında kendi çabalarımla yapmaya çalışırım. yardımınız için şimdiden tekrar teşekkür ederim.

Saygılarımla;

 

[takirti]

Yinede teşekkür ederim.