• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

Userformdan veri aktarımı.

M

mandrake2006

Katılım
23 Ekim 2005
Mesajlar
36
iyi çalışmalar.

Ekli dosyada userformu açtığınızda personel seçiminden birini seçiyorsunuz; ardından boş olan sütunlara veri girdiğinizde , o veriler seçtiğimiz personelin ilgili sütunlarına kaydolsun.

Teşekkürler.
 

Ekli dosyalar

mandrake2006' Alıntı:
iyi çalışmalar.

Ekli dosyada userformu açtığınızda personel seçiminden birini seçiyorsunuz; ardından boş olan sütunlara veri girdiğinizde , o veriler seçtiğimiz personelin ilgili sütunlarına kaydolsun.

Teşekkürler.
Genişletmek için tıkla ...

merhaba
kaydet butonuna atayın lütfen
Kod: 
Private Sub CommandButton10_Click()
Dim ts, trabzonspor
trabzonspor = ComboBox1.ListIndex + 2
ts = MsgBox("Verileri Kaydediyorum", vbYesNo, "Onay")
If ts = vbNo Then Exit Sub
Application.ScreenUpdating = False
ComboBox1.RowSource = ""
Sheets("data").Cells(trabzonspor, 2) = TextBox1
Sheets("data").Cells(trabzonspor, 4) = TextBox2
Sheets("data").Cells(trabzonspor, 5) = TextBox3
Sheets("data").Cells(trabzonspor, 6) = TextBox4
Sheets("data").Cells(trabzonspor, 7) = TextBox5
Sheets("data").Cells(trabzonspor, 8) = TextBox6
Sheets("data").Cells(trabzonspor, 9) = TextBox7
Sheets("data").Cells(trabzonspor, 10) = TextBox8
Sheets("data").Cells(trabzonspor, 11) = TextBox9
Sheets("data").Cells(trabzonspor, 12) = TextBox10
Sheets("data").Cells(trabzonspor, 13) = TextBox11
Sheets("data").Cells(trabzonspor, 14) = TextBox12
Sheets("data").Cells(trabzonspor, 15) = TextBox13
Sheets("data").Cells(trabzonspor, 16) = TextBox14
Sheets("data").Cells(trabzonspor, 17) = TextBox15
Sheets("data").Cells(trabzonspor, 18) = TextBox16
Sheets("data").Cells(trabzonspor, 19) = TextBox17
Sheets("data").Cells(trabzonspor, 20) = TextBox18
Sheets("data").Cells(trabzonspor, 21) = TextBox19
Sheets("data").Cells(trabzonspor, 22) = TextBox20
Sheets("data").Cells(trabzonspor, 23) = TextBox21
Sheets("data").Cells(trabzonspor, 24) = TextBox22
Sheets("data").Cells(trabzonspor, 25) = TextBox23
Sheets("data").Cells(trabzonspor, 26) = TextBox24
Sheets("data").Cells(trabzonspor, 27) = TextBox25
Sheets("data").Cells(trabzonspor, 28) = TextBox26
Sheets("data").Cells(trabzonspor, 29) = TextBox27
Sheets("data").Cells(trabzonspor, 30) = TextBox28
Sheets("data").Cells(trabzonspor, 44) = TextBox29
Sheets("data").Cells(trabzonspor, 45) = TextBox30
Sheets("data").Cells(trabzonspor, 46) = TextBox31
Sheets("data").Cells(trabzonspor, 47) = TextBox33
UserForm_Initialize
Application.ScreenUpdating = True
MsgBox "Kayıt Tamamlandı", vbInformation, "Bitiş"
End Sub
 
İhsan Bey çok teşekkür ederim.

Çok olmazsa eğer. Userforma ekleyeceğim yenikayıt butonu ile ; tüm sütunlara girdiğim verileri data sayfasının dolu satırlarının altından başlayarak kaydedecek kodlarıda yazarmısınız.

teşekkürler.
 
mandrake2006' Alıntı:
İhsan Bey çok teşekkür ederim.

Çok olmazsa eğer. Userforma ekleyeceğim yenikayıt butonu ile ; tüm sütunlara girdiğim verileri data sayfasının dolu satırlarının altından başlayarak kaydedecek kodlarıda yazarmısınız.

teşekkürler.
Genişletmek için tıkla ...

merhaba
Kod: 
Private Sub CommandButton11_Click()
Dim ts, kaplan, trabzonspor
kaplan = MsgBox("Yeni Kayıt Yapıyorum", vbYesNo, "Onay")
If kaplan = vbNo Then Exit Sub
Application.ScreenUpdating = False
ts = Sheets("data").Range("B65536").End(xlUp).Row
trabzonspor = ts + 1
Sheets("data").Range("B" & ts) = TextBox1
Sheets("data").Range("D" & ts) = TextBox2
Sheets("data").Range("E" & ts) = TextBox3
Sheets("data").Range("F" & ts) = TextBox4
Sheets("data").Range("G" & ts) = TextBox5
Sheets("data").Range("H" & ts) = TextBox6
Sheets("data").Range("I" & ts) = TextBox7
Sheets("data").Range("J" & ts) = TextBox8
Sheets("data").Range("K" & ts) = TextBox9
Sheets("data").Range("L" & ts) = TextBox10
Sheets("data").Range("M" & ts) = TextBox11
Sheets("data").Range("N" & ts) = TextBox12
Sheets("data").Range("O" & ts) = TextBox13
Sheets("data").Range("P" & ts) = TextBox14
Sheets("data").Range("Q" & ts) = TextBox15
Sheets("data").Range("R" & ts) = TextBox16
Sheets("data").Range("S" & ts) = TextBox17
Sheets("data").Range("T" & ts) = TextBox18
Sheets("data").Range("U" & ts) = TextBox19
Sheets("data").Range("V" & ts) = TextBox20
Sheets("data").Range("W" & ts) = TextBox21
Sheets("data").Range("X" & ts) = TextBox22
Sheets("data").Range("Y" & ts) = TextBox23
Sheets("data").Range("Z" & ts) = TextBox24
Sheets("data").Range("AA" & ts) = TextBox25
Sheets("data").Range("AB" & ts) = TextBox26
Sheets("data").Range("AC" & ts) = TextBox27
Sheets("data").Range("AD" & ts) = TextBox28
Sheets("data").Range("AR" & ts) = TextBox29
Sheets("data").Range("AS" & ts) = TextBox30
Sheets("data").Range("AT" & ts) = TextBox31
Sheets("data").Range("AU" & ts) = TextBox33
Application.ScreenUpdating = True
MsgBox "Yeni Kaydı Yaptım", vbInformation, "Bitiş"
End Sub
bu işinizi görür sanırım
 
İhsan Bey yardımlarınız için çok teşekkür ederim. Teşekkürüm biraz geç oldu, iş nedeniyle fazla bakamıyorum, kusura bakmayın.

İyi çalışmalar
 
Cevap yazmak için giriş yap yada kayıt ol.
Geri
Üst