FORM ALANINA GİRİLENLERİN SAYFAYA AKTARILMASI

[maznun5255]

Merhaba Değerli Excel Hocalarım
Saygı ve hurmetlerimi sunuyorum sizlere.
Ekte bulunan sayfaya girilen verilerin ayrı bir veri tablosuna aktarılması için bir makro yazılmasını rica ederim.
Yardımlarınz için tesekkurler.

 

[Necdet]

Merhaba,
Umarım doğru anlamışımdır.
Açıklamanızda F sütununa kadar olduğunu ama bunun artabileceğini de belirtmişsiniz.
Bu durumda genel amaçlı kod yazmak için F sütunundan sonra en az bir boş sütun olması gerek.
Aşağıdaki kodları yazarken de F sütunundan sonra boş bir sütun ekledim ve ona göre yazdım.

Public Sub Aktar()

Dim Kol As Integer
Dim i   As Long
Dim j   As Long
Dim arr As Variant

j = Sayfa1.Cells(Rows.Count, "A").End(xlUp).Row
Sayfa2.Cells.ClearContents

For Kol = 1 To Sayfa1.Cells(1, "A").End(xlToRight).Column
    i = Sayfa2.Cells(Rows.Count, "A").End(3).Row + 1
    arr = Sayfa1.Range(Sayfa1.Cells(1, Kol), Sayfa1.Cells(j, Kol)).Value
    Sayfa2.Range("A" & i).Resize(1, UBound(arr, 1)) = Application.WorksheetFunction.Transpose(arr)
Next Kol

Sayfa2.Cells.EntireColumn.AutoFit
MsgBox "Aktarma Tamamdır...."

End Sub

 

[maznun5255]

Necdet Hocam Ellerinize Sağlık
Güzel olmuş.
Teşeşkkur ederim.
Yanlız bir husus var.
Ana ekranda veri girilenler sürekli değişeceği için VERİ TABANI alt alta aktarma tamamlandıktan sonra kaydedip , bir sonraki forma girilenleri ikinci bir aktarma yaptıgında altına devam etmesini istiyorum.Bunun için yardımcı olabilir misiniz ?

 

[Necdet]

Merhaba.

Koddaki

Sayfa2.Cells.ClearContents

satırını silin.

For Kol = 1 To Sayfa1.Cells(1, "A").End(xlToRight).Column

döngüsünü de 1'den değil 2 den başlatın. Yani :

For Kol = 2 To Sayfa1.Cells(1, "A").End(xlToRight).Column

olarak.