sayfa1 deki formu sayfa2 ye aktarma

[turk4545]

iyi akşamlar ekteki dosyada sayfa 1 e düzenlediğim formu sayfa 2 ye alt alta aktarmak istiyorum.yardımcı olursanız sevinirim..

 

[Orion1]

Dosyanız ekte.

Sub Düğme1_Tıklat()
Application.ScreenUpdating = False
sat = Sheets("Sayfa2").Cells(65536, "A").End(xlUp).Row + 1
Range("A3:N17").Copy Sheets("Sayfa2").Range("A" & sat)
Application.ScreenUpdating = False
MsgBox "İşlem Tamamdır..!!", vbOKOnly + vbInformation, "İŞLEM TAMAM"
End Sub
Sub Düğme2_Tıklat()
Dim hcr As Range, k As Range
Application.ScreenUpdating = False
If Cells(65536, "N").End(xlUp).Row < 3 Then Exit Sub
For Each hcr In Range("N2:N" & Cells(65536, "N").End(xlUp).Row)
    Set k = Sheets("Sayfa2").Range("N2:N65536").Find(hcr.Value, , xlValues, xlWhole)
    If Not k Is Nothing Then
        Sheets("Sayfa2").Range(Sheets("Sayfa2").Cells(k.Row, "A"), Sheets("Sayfa2").Cells(k.Row, "N")).Value _
        = Range(Cells(hcr.Row, "A"), Cells(hcr.Row, "N")).Value
    End If
Next
Application.ScreenUpdating = True
MsgBox "İşlem Tamamdır..!!", vbOKOnly + vbInformation, "İŞLEM TAMAM"
End Sub

 

[turk4545]

yardımınız için teşekkürler.sadece dolu alanları kopyalıyor.benim istediğim boş olsa dahi a1:n17 arasını kopyalayıp sayfa2 ye aktarmasını istiyorum.

 

[Orion1]

yardımınız için teşekkürler.sadece dolu alanları kopyalıyor.benim istediğim boş olsa dahi a1:n17 arasını kopyalayıp sayfa2 ye aktarmasını istiyorum.

Gerekli düzenlemeyi yaptım Önceki mesajımdan indirebilirsiniz.

 

[turk4545]

sorgula butonunu yanlış anlattım galiba,özür dilerim.sorgula dediğim de daha önce kayıtlımı değilmi diye yani bulmak için..eğer kayıt varsa bilgileri sayfa 1 deki form üzerine taşıyıp üzerinde gerekli düzenlemeleri yaptıktan sonra kaydet dedikten sonra üzerine yazsın..

 

[Orion1]

sorgula butonunu yanlış anlattım galiba,özür dilerim.sorgula dediğim de daha önce kayıtlımı değilmi diye yani bulmak için..eğer kayıt varsa bilgileri sayfa 1 deki form üzerine taşıyıp üzerinde gerekli düzenlemeleri yaptıktan sonra kaydet dedikten sonra üzerine yazsın..

Bunu anlamadım.

 

[turk4545]

veri aktarma

kaydet butonuna tıklayınca sayfa1 deki a1:n17 aralığını sayfa2 ye kaydetsin.her kaydı alt alta.

kişinin daha önce kaydı var mı yok mu diye bakmak için n3 hücresiyle sorgulama yapmak istiyorum.eğer kaydı var ise daha önce kaydedilmiş bilgilerini sayfa1 deki formun üzerine taşısın ve üzerinde değişiklik yaptıysam kaydet deyince ayrı kayıt değilde eski bilgileriyle değiştirsin.

 

[Orion1]

Bu işlem için sanırım bir userform hazırlamak gerekiyor(Soruyu böyleanladığmdan) ve üzerine gerekli nesneleri koymak gerekiyor.Ve üzerinde değişiklik yaptıktan sonra sayfa1e aktarmak gerekiyor.Siz userformu hazırlayın nesneleri üzerine ekleyin ve dosyayıekleyin ben nesnelerin içinden bir tanesini kodunu yazayım sizde ona göre diğer nesneler için kodları yazın.

 

[turk4545]

veri aktarma..

ekteki dosyada anlattım.sayfa deki tabloyu sayfa 2 ye aktarmak istiyorum.dünden beri ugraşıyorum yapamadım.yardımcı olurmusunuz..

 

[ozgretmen]

Dosya ekte...

 

[turk4545]

elinize sağlık

teşekkürler...tam istediğim gibi...

 

[ozgretmen]

teşekkürler...tam istediğim gibi...

Rica ederim.İyi çalışmalar...