Soru Kod ile Data Sayfasına Verileri Aktarmak

[emrehan26]

Private Sub CommandButton1_Click()

sonsatir = Cells(Rows.Count, "B").End(xlUp).Row + 1

Range("B" & sonsatir) = Range("H3")
Range("C" & sonsatir) = Range("H4")
Range("D" & sonsatir) = Range("H5")
Range("E" & sonsatir) = Range("H6")
Range("F" & sonsatir) = Range("H10")
Range("G" & sonsatir) = Range("H11")
Range("H" & sonsatir) = Range("H12")
Range("I" & sonsatir) = Range("H13")
Range("J" & sonsatir) = Range("H14")
Range("G" & sonsatir) = Range("H15")

Range("H3:H15").ClearContents

End Sub

Sayın kod üstadları,

Elimde ki dosyada Form sayfasında doldurduğum verileri, Data sayfasında ki B sütunundan CN sütununa kadar aktarmak istiyorum. Yukarıda ki kodu aynı sayfa için ve daha az değişken için kullanıyordum. Bu koda nasıl bir düzenleme yapmalıyım. Bir de tek tek bu verilerin yazılacağı yeri göstermek yerine,başka bir kısa yolu var mıdır. (Range("B" & sonsatir) = Range("H3"))


Şimdiden teşekkür ederim.

 

[Necdet]

Merhaba,

Sorunuzu örnek dosya ile desteklerseniz daha hızlı yanıt alırsınız.

 

[emrehan26]

Hocam dosya ekledim sanıyorum atlamışım. Mevcut kod ile formun altına sonuçları alıyordum. Soru çoğaldığı için girdiğim verileri Data sayfasına almaya çalışıyorum.

 

[EmrExcel16]

Merhaba , Aşağıdaki kodları deneyiniz.

Sub Emr()

Dim satir, i, Data

Set Data = Sheets("Data")
satir = Data.Cells(Rows.Count, "B").End(xlUp).Row + 1
If Range("H3") = "" Then
    MsgBox "AD/Soyad giriniz"
    Exit Sub
End If

For i = 10 To 106
    Set SoruBul = Data.Range("F1:CN1").Find(Cells(i, "B"), Lookat:=xlWhole)
    If Not SoruBul Is Nothing Then
        Data.Cells(satir, "B") = Range("H3")
        Data.Cells(satir, "C") = Range("H4")
        Data.Cells(satir, "D") = Range("H5")
        Data.Cells(satir, "E") = Range("H6")
        Data.Cells(satir, SoruBul.Column) = Cells(i, "H")
    End If
Next
MsgBox "Islem tamam"

End Sub

 

[emrehan26]

Elinize sağlık teşekkür ederim

 

[EmrExcel16]

Elinize sağlık teşekkür ederim

Rica ederim , iyi çalışmalar.