Aktar makrosu Hakkında

[akmes]

Merhaba,

Ekteki excel dosyasında sayfa1 den sayfa2 ye veri aktarımı yapmak istiyoruz.Her ay sayfa1 deki veriler yenileniyor.Bu yeni veriler tekrar aktarıldığında sayfa2 deki en son dolu satırın altından devam etmesi gerekiyor.
Ben yine bu forumdaki arkadaşların bir makro formülünü kullanmaya çalıştım ama bilgim az olunca netice alamadım.Konu hakkında yardımınızı rica ediyorum.

 

[dEdE]

Merhaba,
Makronuzdaki şu satırı;

For x = 10 To [a65536].End(3).Row

Şununla değitirip dener misiniz?

For x = [COLOR="Red"]8[/COLOR] To[COLOR="red"] s1.[/COLOR][a65536].End(3).Row

 

[akmes]

Merhaba,
Makronuzdaki şu satırı;

For x = 10 To [a65536].End(3).Row

Şununla değitirip dener misiniz?

For x = [COLOR="Red"]8[/COLOR] To[COLOR="red"] s1.[/COLOR][a65536].End(3).Row

Sn.dEdE ilginize teşekkür ederim.Evet ilgili satırdan itibaren veriyi almış ama deneme maksatlı ben aktar butonuna 2 kez ard arda basınca tekrar aktarılan veriyi son satır altına eklemiyor.Bu konuda ne yapabiliriz?

 

[dEdE]

Merhaba,
Makronuzdaki şu satırı;

sat = 1

Şununla değiştirip dener misiniz?

sat = s2.[a65536].End(3).Row

 

[akmes]

Merhaba,
Makronuzdaki şu satırı;

sat = 1

Şununla değiştirip dener misiniz?

sat = s2.[a65536].End(3).Row

Sn.dEdE, evet oldu.Yardımınız için çok teşekkür ediyorum.Hayırlı çalışmalar.

 

[putedan]

çok acil yarsım

üstatlar benimde buna benzer bir hususta ekli dosyada belirttiğim sorunumun çözülmesi gerekiyor yardımlarınız için şimdiden tşk

 

[dEdE]

üstatlar benimde buna benzer bir hususta ekli dosyada belirttiğim sorunumun çözülmesi gerekiyor yardımlarınız için şimdiden tşk

Merhaba,
Aşağıdaki kodu Modüle yapıştırarak dener misiniz?

Sub Kaydet()
Dim S1 As Worksheet, S2 As Worksheet, SON As Long
Set S1 = Sheets("YEDEKAL")
Set S2 = Sheets("YEDEK")

Set Aranan = S2.Range("A:A").Find(S1.[A1].Value, , xlValues, xlWhole)
    If Not Aranan Is Nothing Then
        MsgBox "DİKKAT ! Bu kayıt var. ", vbCritical, "dEdE Başarılar diler..."
        Exit Sub
    Else
        SON = S2.Cells(Rows.Count, "A").End(xlUp).Row + 1
        S2.Range("A" & SON & ":C" & SON).Value = S1.Range("A1:C1").Value
        MsgBox "Aktarma işlemi tamamlandı.", vbInformation, "dEdE Başarılar diler..."
    End If
End Sub

 

[putedan]

üstad mükemmelsin teşekkür ederim