Kayıt

[darkedenn]

Arkadaşlar mrb;
Ekte bulunan excel dosyam için aktar butonu yapmak istiyorum. Kayıt kısmında butona tıklandığı anda renkli kısımlardaki veriler liste dölümünde ilgili yerlere yerleşmesini istiyorum ve her yeni kayıtta bir alttaki satıra eklenmesi gerekiyor. Bu konu ile ilgili yardımlarınızı bekliyorum. Şimdiden Yardımlarınız için tşk ederim.

 

[N.Ziya Hiçdurmaz]

yanıt

Private Sub CommandButton1_Click()
Dim son As Integer
Application.Calculation = xlCalculationManual
son = Sayfa1.Cells(65536, "b").End(xlUp).Row + 1
Sayfa1.Cells(son, "b") = Sayfa4.[ı11]
Sayfa1.Cells(son, "c") = Sayfa4.[ı13]
Sayfa1.Cells(son, "d") = Sayfa4.[ı15]
Sayfa1.Cells(son, "p") = Sayfa4.[ı23]
Sayfa1.Activate
Application.Calculation = xlCalculationAutomatic
End Sub

 

[darkedenn]

kayıt

Syn Ziya Bey

Yardımlarınız için Tşk Ederim...