veri aktarımı

[airborne]

s.a.

ekli dosyada Ön Sayfa da bulunan j8,j9,10,j11,j13 teki verileri, EK-1 Sayfasındaki listeye aktarmak için nasıl bir makro yazılabilir. yardımlarınız için şimdiden teşekkür ederim.

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki kodu denermisiniz. GÖREV YERİ bilgisi "Ön Sayfa" H39 hücresinden alınmıştır. Gerekiyorsa kendi dosyanıza göre düzeltiniz.

Option Explicit
 
Sub AKTAR()
    Dim S1 As Worksheet, S2 As Worksheet, SATIR As Integer
 
    Set S1 = Sheets("Ön Sayfa")
    Set S2 = Sheets("EK-1")
 
    If S2.Range("A40") <> "" Then
        MsgBox "EK-1 sayfası doldu yeni satır eklemelisiniz !", vbCritical
        Exit Sub
    End If
 
    SATIR = IIf(S2.Range("A41").End(3).Row + 1 = 15, S2.Range("A41").End(3).Row + 2, S2.Range("A41").End(3).Row + 1)
 
    S2.Cells(SATIR, 1) = SATIR - 15
    S2.Cells(SATIR, 2) = S1.Range("J8")
    S2.Cells(SATIR, 3) = S1.Range("J10")
    S2.Cells(SATIR, 4) = [COLOR=red]S1.Range("H39")[/COLOR]
    S2.Cells(SATIR, 5) = S1.Range("J11")
 
    Set S1 = Nothing
    Set S2 = Nothing
 
    MsgBox "İşleminiz tamamlanmıştır.", vbInformation
End Sub

 

[leumruk]

Merhaba,

Sub Aktar()
Set s2 = Sheets("EK-1")
Sat = s2.[b65536].End(3).Row + 1
s2.Cells(Sat, "b") = [j8]
s2.Cells(Sat, "c") = [j10]
s2.Cells(Sat, "d") = Format([j9], "dd.mm.yyyy")
s2.Cells(Sat, "e") = [j11]
End Sub

Bilgi uyuşmazlığı var. Aynı yolu izleyerek siz kodları düzeltebilirsiniz.

 

[airborne]

s.a.

üstadlarım ikinizdende Allah Razı olsun