userform'da ki textbox'a veri döngüsü nasıl yapılır

[ertugrul19]

yapmak istediğim şu arkadaşlar personel bilgilerinde i.s 2011 ve i.s 2012 yollarına ait izin süreleri var bir kişi izin aldığında (diyelimki 15 gün olsun) izin_çizelgesi sayfasında işlem gerçekleştirebildim fakat kalan izin süreleri 2011 yılında 0 ve 2012 yılında 25 bunu userformdaki textbox larla güncellemek istiyorum.
textbokslara veri personel bilgilerinden geliyor yapmak istediğim bir döngü sağlamak veriyi alacak ve yerine güncel verileri yazacak bunu yaparkende foksiyonları silmeyecek mümkünse arkadaşlar yardımlarınızı bekliyorum.?

 

[ertugrul19]

Okuyan arkadaşlar yorumlarınızı bekliyorum

 

[halit3]

yapmak istediğim şu arkadaşlar personel bilgilerinde i.s 2011 ve i.s 2012 yollarına ait izin süreleri var bir kişi izin aldığında (diyelimki 15 gün olsun) izin_çizelgesi sayfasında işlem gerçekleştirebildim fakat kalan izin süreleri 2011 yılında 0 ve 2012 yılında 25 bunu userformdaki textbox larla güncellemek istiyorum.
textbokslara veri personel bilgilerinden geliyor yapmak istediğim bir döngü sağlamak veriyi alacak ve yerine güncel verileri yazacak bunu yaparkende foksiyonları silmeyecek mümkünse arkadaşlar yardımlarınızı bekliyorum.?

Bu tür sorularınızı sorarken kullanıcı adını ve şifreyi yanında verin yada açılışta bu uygulamayı kaldırın.

Örnek kod:L22 hücresi için.

ListBox1_Click için

TextBox14.Value = Worksheets("PERSONEL_BİLGİLERİ").Cells(20, "l").Value - Worksheets("PERSONEL_BİLGİLERİ").Cells(21, "l").Value

 

[ertugrul19]

özür dilerim hocam aklımdan çıkıvermiş ilginiz için teşekkür ederim .

 

[halit3]

özür dilerim hocam aklımdan çıkıvermiş ilginiz için teşekkür ederim .

İyi çalışmalar

 

[ertugrul19]

Private Sub CommandButton1_Click()
If Range("A10").Text = Empty Then MsgBox "A10 Hücresi Boş", vbInformation: Exit Sub
Son_Dolu_Satir = Sheets("Sayfa2").Range("A65536").End(xlUp).Row
Bos_Satir = Son_Dolu_Satir + 1
Sheets("Sayfa2").Range("A" & Bos_Satir).Value = Range("A10").Text
End Sub

bu kodu birazcık değiştirebilir misiniz diyelim CommandButton sayfa 2 de olsun sayfa birdeki a10 ve b10 hücrelerini sayfa 2 deki a10 ve be 10 hücrelerine aktarabilirmiyiz.

 

[halit3]

Private Sub CommandButton1_Click()
If Range("A10").Text = Empty Then MsgBox "A10 Hücresi Boş", vbInformation: Exit Sub
Son_Dolu_Satir = Sheets("Sayfa2").Range("A65536").End(xlUp).Row
Bos_Satir = Son_Dolu_Satir + 1
Sheets("Sayfa2").Range("A" & Bos_Satir).Value = Range("A10").Text
End Sub

bu kodu birazcık değiştirebilir misiniz diyelim CommandButton sayfa 2 de olsun sayfa birdeki a10 ve b10 hücrelerini sayfa 2 deki a10 ve be 10 hücrelerine aktarabilirmiyiz.

Kod:

Private Sub CommandButton1_Click()
Sheets("Sayfa2").Cells(10, 1).Value = Sheets("Sayfa1").Cells(10, 1).Value
Sheets("Sayfa2").Cells(10, 2).Value = Sheets("Sayfa1").Cells(10, 2).Value
End Sub

 

[ertugrul19]

hocam tam olarak istediğim sayfa 2 deki commadbottona tıkladığımızda sayfa 1 deki a10 ve b10 gücresini alacak ve sayfa 2 deki a10 ve b10 hücrelerine yazacak ve her tıklamada a11 b11 a12 b12 hücrelere yazmaya devam edecek alt alta yazmaya devam edecek.

 

[halit3]

hocam tam olarak istediğim sayfa 2 deki commadbottona tıkladığımızda sayfa 1 deki a10 ve b10 gücresini alacak ve sayfa 2 deki a10 ve b10 hücrelerine yazacak ve her tıklamada a11 b11 a12 b12 hücrelere yazmaya devam edecek alt alta yazmaya devam edecek.

kod:

Private Sub CommandButton1_Click()
sat = Sheets("").Range("A65536").End(xlUp).Row + 1
If sat < 10 Then sat = 10
Sheets("Sayfa2").Cells(sat, 1).Value = Sheets("Sayfa1").Cells(10, 1).Value
Sheets("Sayfa2").Cells(sat, 2).Value = Sheets("Sayfa1").Cells(10, 2).Value
End Sub

 

[ertugrul19]

Teşekkür ederim hocam ellerinize sağlık

 

[ertugrul19]

kod:

private sub commandbutton1_click()
sat = sheets("").range("a65536").end(xlup).row + 1
ıf sat < 10 then sat = 10
sheets("sayfa2").cells(sat, 1).value = sheets("sayfa1").cells(10, 1).value
sheets("sayfa2").cells(sat, 2).value = sheets("sayfa1").cells(10, 2).value
end sub

cok olmuyorsom hocam ben değiştirmeye çalışıyorum ama olmuyor
kodu şu şekle cevire bilirseniz sevinirim.
Izin_çizelgesi ı18 ve l18 den alacak
görünüm de ki d8 ve e8 e yazacak ve gerisi aynı alt alta yazmaya devam edecek

 

[ertugrul19]

Izin_çizelgesi ı18 ve L18

 

[ertugrul19]

başardım hocam teşekkürler