Kaydet

[ahmett46]

Slm. arkadaşlar
Ekte bir dosya gönderiyorum. adı soyadı tc kimlik no ve diğer text ve comboları sırayla BD2 hücresinden itibaren oluşturacağım kaydet butonuyla kaydetmesini istiyorum. her kayıt bir alt satıra kaydedilmesi gerekiyor. Kayıttan sonra adı soyadı veya tc kimlik no comboboxlardan istenilen biriyle seçtiğimizde o kişiye ait bilgiler text ve combolara gelsin. İlgilenecek arkadaşlara teşekkür ediyorum.

 

[ahmett46]

Yok mu yardım edecek kimsee

 

[ahmett46]

Private Sub CommandButton1_Click()
On Error Resume Next
Range("a2").Select
If tx2.Text = Empty Then
Else
End If
'kodlar
pir = False
sonsatir = Cells(65536, 1).End(xlUp).Row
For x = 2 To sonsatir
If Cells(x, 1) & Cells(x, 2) = tx1 & tx2 Then
pir = True
sira = x
Exit For
End If
Next x
If pir = False Then
Cells(sonsatir + 1, 1) = tx1
Cells(sonsatir + 1, 2) = tx2
Cells(sonsatir + 1, 3) = tx3
Cells(sonsatir + 1, 4) = tx4
Cells(sonsatir + 1, 5) = box1
Cells(sonsatir + 1, 6) = tx5
Cells(sonsatir + 1, 7) = tx6
Cells(sonsatir + 1, 8) = tx7
Cells(sonsatir + 1, 9) = tx8
Cells(sonsatir + 1, 10) = tx9
Cells(sonsatir + 1, 11) = tx10
Cells(sonsatir + 1, 12) = tx11
Cells(sonsatir + 1, 13) = tx12
Cells(sonsatir + 1, 14) = tx13
Cells(sonsatir + 1, 15) = tx14
Cells(sonsatir + 1, 16) = tx15
Cells(sonsatir + 1, 17) = tx16
MsgBox (sonsatir + 1 & ". sıraya kaydı yapıldı.")
Else
MsgBox ("Bu kayıt daha önce girilmiş..." & sira & ". satir")
End If
If tx6.Text > 0 Then
End If
ListBox1.Clear
Call ListBox1_Change
Call tx1_Enter
End Sub

KODLARINI UYARLAMAYA ÇALIŞTIM AMA YAPAMADIM. YARDIM LÜTFEN

 

[ahmett46]

yardım lütfen

 

[ahmett46]

Yardım edecek kimse yok mu?!!!!!

 

[ahmett46]

slm
Private Sub CommandButton23_Click()
On Error Resume Next

Range("bı2").Select
If ComboBox1.Text = Empty Then
MsgBox ("Ad kısmını boş geçmeyiniz"), vbOKOnly, "Uyarı!!!": Exit Sub
Else
End If
If ComboBox2.Text = Empty Then
MsgBox ("Soyadı yazmak mecburidir"), , "Uyarı!!!": Exit Sub
Else
End If

'kodlar
pir = False
sonsatir = Cells(65536, 1).End(xlUp).Row
For X = 2 To sonsatir
If Cells(X, 1) & Cells(X, 2) = ComboBox1 & ComboBox2 Then
pir = True
sira = X
Exit For
End If
Next X
If pir = False Then
Cells(sonsatir + 1, 61) = ComboBox1
Cells(sonsatir + 1, 62) = ComboBox2
Cells(sonsatir + 1, 63) = TextBox1
Cells(sonsatir + 1, 64) = TextBox2
Cells(sonsatir + 1, 65) = TextBox3
Cells(sonsatir + 1, 66) = TextBox4
Cells(sonsatir + 1, 67) = TextBox5
Cells(sonsatir + 1, 68) = TextBox6
Cells(sonsatir + 1, 69) = TextBox7
Cells(sonsatir + 1, 70) = TextBox8
Cells(sonsatir + 1, 71) = Com8
Cells(sonsatir + 1, 72) = Com9
Cells(sonsatir + 1, 73) = Com10
Cells(sonsatir + 1, 74) = Com11
Cells(sonsatir + 1, 75) = Com12
Cells(sonsatir + 1, 76) = Com13
Cells(sonsatir + 1, 77) = Com14
MsgBox (sonsatir + 1 & ". sıraya kaydı yapıldı.")
Else
MsgBox ("Bu kayıt daha önce girilmiş..." & sira & ". satir")
End If
If TextBox2.Text > 0 Then
End If
End Sub

bu kodu kullanarak kayıt yapıyorum ama her yeni kayıtta bir alt satıra yapamadım yardım ltf.

 

[ahmett46]

Arkadaşlar çok mu uğraştırıcı bir şey istedim kimseden olumlu yada olumsuz cevap yok.

 

[Ferhat Pazarçevirdi]

Merhabalar,

Açılışta Excel app'yi gizleyen bir dosya herkese antipatik gelir. Hiç beklemediğiniz bir anda, Excel uygulaması kapanıp, bütün çalıştığınız dosyalar görünmez olsa hoşunuz gider miydi?

Bu tip, yöntemlerle süslediğiniz dosyaları foruma yüklerseniz, lütfen sorunuzla birlikte bunu da bildirin. (Excel gizleniyor dikkatli olun diye)

 

[ahmett46]

Hocam excele dön butonu olduğu için dikkate almadım. Ben acemiyim bana yardım edecek arkadaşlar(HOCAM) diye tabir ettiğim, gerçekten gözümde hoca olarak gördüğüm insanlar bunun farkına varır herhalde. Bu foruma üye olmadan önce sadece excel sayfasında formülle birşeyler yapıyordum. Ama şimdi (belki yüzde birini bilmediğim halde) VBA da basit kodları kullanıyorum. Başta bu sitenin yöneticileri olmak üzere sayın hocalarım ve diğer arkadaşlara bu arada teşekkürlerimide iletiyorum. SAYGILAR...