veri aktarımı

[mandrake2006]

herkese iyi çalışmalar öncelikle;

benim istedğim sayfa birde bir veri giriş alanı olacak ( adı soyadı, t.c. , okulu, mezuniyet alanı vb gibi)
buraya veriyi girdiğimde aktar dediğimde veriyi 2. sayfadaki tablonun altına eklesin. yani veri giriş yeri 1. sayfada , tablo 2. sayfada. acaba bu mümkünmüdür.

saygılar.

 

[Necdet]

herkese iyi çalışmalar öncelikle;

benim istedğim sayfa birde bir veri giriş alanı olacak ( adı soyadı, t.c. , okulu, mezuniyet alanı vb gibi)
buraya veriyi girdiğimde aktar dediğimde veriyi 2. sayfadaki tablonun altına eklesin. yani veri giriş yeri 1. sayfada , tablo 2. sayfada. acaba bu mümkünmüdür.

saygılar.

Merhaba,

Olasıdır, sayfa1deki veri giriş tek satırda mı olacak yoksa çok satır girip tek aktarma mı olacak?

Bunu da açıklarsanız destek verecek arkadaş için yararlı olur.

 

[mandrake2006]

userform şeklindede olabilir. veya alt alta çok satırlıda olabilir.

 

[Necdet]

Merhaba,

Aşağıdaki kodları dener misiniz? Satır ve Sütun sayısı önemli değil.

Sub Aktar()
    Dim s1      As Worksheet
    Dim s2      As Worksheet
    Dim SonSat  As Long
    Dim AktSat  As Long
    Dim i       As Long
    Dim SonKol  As Integer
 
    Set s1 = Sheets("Sayfa1")
    Set s2 = Sheets("Sayfa2")
 
    SonKol = [IV1].End(1).Column                        'Sayfa1 de Aktarılacak Kolon Sayısı
    SonSat = s1.Cells(Rows.Count, "A").End(3).Row       'Sayfa1 in son satır numarası
    AktSat = s2.Cells(Rows.Count, "A").End(3).Row + 1   'Sayfa2de aktarılacak son satır numarası
 
    With s1.Range(Cells(2, 1), Cells(SonSat, SonKol))
        .Copy s2.Cells(AktSat, "A")
        .ClearContents
    End With
End Sub

 

[mandrake2006]

ellerine sağlık çok işime yaradı. teşekkürler