Userform acil

[cembayindir]

Arkadaşlar Merhaba
ekte eklemiş oldugum excel tablosunda userform ile giriş yapmak istiyorum. Aslında istediğim sey komplike birsey degil. Sadece userforma yazıp kayıt yapacak. Bu benim için cok onemli yardımcı olailirseniz cok sevinirim. simdiden cok tesekkur ederım.

 

[Necdet]

Merhaba,

Veri Yönetimi ile ilgili linkleri inceliyiniz.

 

[Orion1]

ARKADAŞLAR BELKİ BASIT BIR SORU AMA BUNU YAPAMADIM. BIR USERFORM OLUSTURUP TEXBOXLARA GIRIS YAPIP BU TABLOYA KAYIT YAPMAM GEREKİYOR. USERFORMDA
TEXTBOXLAR. YENİ EKLE .TESLİM.SİL.ARAMA MOTORU(NUMARA SÜTUNUNDA ARAYACAK). TOPLAM ADET VE KAYDET BUTONLARI OLACAK
TESLİM BUTONUNA BASTIGIMDA O SATIRI SILIP SHEET2 DE ALTALTA YAPISTIRACAK
COK TESEKKUREDERİM

Basit bir soru ise yapmam.

 

[cembayindir]

Arkadaşlar bu konu benim için önemli ve acil forumda çok komplike denemeler yapılmış bunun içinde zaman ayırabilirseniz çok sevinirim teşekkürler

 

[İhsan Tank]

Arkadaşlar bu konu benim için önemli ve acil forumda çok komplike denemeler yapılmış bunun içinde zaman ayırabilirseniz çok sevinirim teşekkürler

Merhaba
Tıklayın burası işinize yarayacaktır

 

[cembayindir]

Ekte bir tablo olusturdum . burada takıldıgım yer kayıt sıl butonuna basında silinen kaydın sheet2 deki tabloya yapısması. şimdiden tesekkurler

 

[İhsan Tank]

Ekte bir tablo olusturdum . burada takıldıgım yer kayıt sıl butonuna basında silinen kaydın sheet2 deki tabloya yapısması. şimdiden tesekkurler

Merhaba
Kayıt Sil kodunu bununla değişin

Private Sub B10_Click()
On Error Resume Next
If (MsgBox("İlgili Kayıtı Silmek İstiyormusunuz?", vbCritical + vbDefaultButton2 + vbYesNo, "UYARI")) = vbYes Then
Range(ActiveCell, ActiveCell.Offset(0, 11)).Select
Selection.Delete Shift:=xlUp
ActiveCell.Select
If ActiveCell.Value = "" Then ActiveCell.Offset(-1, 0).Select
Call VeriAl
MsgBox "İlgili Kayıt Silindi.", vbCritical + vbDefaultButton1 + vbOKOnly, "UYARI"
Else
Exit Sub
End If
Call EkranKaydet
Dim ts, kaplan
ts = Sheets("Sheet1").Range("B65536").End(xlUp).Row
Sheets("Sheet1").Range("B" & ts + 1) = ALAN02.Text
Sheets("Sheet1").Range("C" & ts + 1) = ALAN03.Text
Sheets("Sheet1").Range("D" & ts + 1) = ALAN04.Text
Sheets("Sheet1").Range("E" & ts + 1) = ALAN05.Text
Sheets("Sheet1").Range("F" & ts + 1) = ALAN06.Text
Sheets("Sheet1").Range("G" & ts + 1) = ALAN07.Text
Sheets("Sheet1").Range("H" & ts + 1) = ALAN08.Text
Sheets("Sheet1").Range("I" & ts + 1) = ALAN09.Text
Sheets("Sheet1").Range("J" & ts + 1) = ALAN10
Sheets("Sheet1").Range("K" & ts + 1) = ALAN11
Sheets("Sheet1").Range("L" & ts + 1) = ALAN12
Sheets("Sheet1").Range("A2") = 1
Sheets("Sheet1").Range("A2:A" & ts + 1).DataSeries rowcol:=xlColumns, Type:=xlLinear, step:=1, Trend:=True
End Sub

 

[paranormal]

Siz daha yolun basindasiniz........... istediginiz komple bir program.......... fakat sizin bi seyler yapabilirim galiba............

 

[Skorpiyon]

Basit bir soru ise yapmam.

Bu güzeldi.

 

[cembayindir]

Merhaba
Kayıt Sil kodunu bununla değişin

Private Sub B10_Click()
On Error Resume Next
If (MsgBox("İlgili Kayıtı Silmek İstiyormusunuz?", vbCritical + vbDefaultButton2 + vbYesNo, "UYARI")) = vbYes Then
Range(ActiveCell, ActiveCell.Offset(0, 11)).Select
Selection.Delete Shift:=xlUp
ActiveCell.Select
If ActiveCell.Value = "" Then ActiveCell.Offset(-1, 0).Select
Call VeriAl
MsgBox "İlgili Kayıt Silindi.", vbCritical + vbDefaultButton1 + vbOKOnly, "UYARI"
Else
Exit Sub
End If
Call EkranKaydet
Dim ts, kaplan
ts = Sheets("Sheet1").Range("B65536").End(xlUp).Row
Sheets("Sheet1").Range("B" & ts + 1) = ALAN02.Text
Sheets("Sheet1").Range("C" & ts + 1) = ALAN03.Text
Sheets("Sheet1").Range("D" & ts + 1) = ALAN04.Text
Sheets("Sheet1").Range("E" & ts + 1) = ALAN05.Text
Sheets("Sheet1").Range("F" & ts + 1) = ALAN06.Text
Sheets("Sheet1").Range("G" & ts + 1) = ALAN07.Text
Sheets("Sheet1").Range("H" & ts + 1) = ALAN08.Text
Sheets("Sheet1").Range("I" & ts + 1) = ALAN09.Text
Sheets("Sheet1").Range("J" & ts + 1) = ALAN10
Sheets("Sheet1").Range("K" & ts + 1) = ALAN11
Sheets("Sheet1").Range("L" & ts + 1) = ALAN12
Sheets("Sheet1").Range("A2") = 1
Sheets("Sheet1").Range("A2:A" & ts + 1).DataSeries rowcol:=xlColumns, Type:=xlLinear, step:=1, Trend:=True
End Sub

Cok tesekkur ederım dostum tam istediğim şey buydu