Oluşturduğum Bilgi Formuna Bilgi Alma

[jajiyiko]

Merhaba!

Bütün arkadaşlara kolay gelsin diyorum.

Ekte gönderdiğim dosyada yapmak istediğimi anlatmaya çalıştım. İlgilenirseniz sevinirim.

Teşekkür ederim

 

[Mahmut Kök]

İlgili düğmeye aşağıdaki makroyu atayıp deneyiniz.

Sub aktar()
Set s1 = Sheets("Sayfa1")
Set s2 = Sheets("Sayfa2")
For a = s2.Range("N8").Value To s2.Range("N10").Value
s2.Range("d9:d17").ClearContents
s2.Range("d35:d43").ClearContents
s2.Range("D9") = s1.Cells(a + 1, "a")
s2.Range("D11") = s1.Cells(a + 1, "d")
s2.Range("D13") = s1.Cells(a + 1, "b")
s2.Range("D15") = s1.Cells(a + 1, "c")
s2.Range("D17") = s1.Cells(a + 1, "e")
    a = a + 1
    If a <= s2.Range("N10").Value Then
        s2.Range("D35") = s1.Cells(a + 1, "a")
        s2.Range("D37") = s1.Cells(a + 1, "d")
        s2.Range("D39") = s1.Cells(a + 1, "b")
        s2.Range("D41") = s1.Cells(a + 1, "c")
        s2.Range("D43") = s1.Cells(a + 1, "e")
    End If
    s2.PrintOut
Next
End Sub

 

[jajiyiko]

Sayın Mahmut KÖK çok teşekkür ederim.

İşime Yaradı. Ben yanllızca tekli formu doldurabiliyordum . şimdi oldu.

sağolun.kolay gelsin

 

[jajiyiko]

Sayın Mahmut Kök gönderdiğiniz kod ilk kullanımda işime yaradığını düşündüm ama sonra başka bir problem çıktı. gönderdiğim örnekte sıra no sütunu 1 den başlayıp devam ediyor. mesela 10001 den veya 50001 den de başlayabiliyor benim dosyalarım o zaman ise bilgileri getirmiyor. buna göre bir incelerseniz kodları tekrar memnun olurum.şimdiden teşekkür ederim.