userformdan excele veri aktarmak...

[rekkezum]

kolay gelsin arkadaşlar,
Ekteki dosyada açıklamaya çalıştım yardımcı olabilirmisiniz. çok teşekkür ederim
NOT şifre : 4455

 

[rekkezum]

kolay gelsin arkadaşlar,
Ekteki dosyada açıklamaya çalıştım yardımcı olabilirmisiniz. çok teşekkür ederim
NOT şifre : 4455

olmayacak birşeymi acaba bu ?

 

[Mdemir63]

olmayacak birşeymi acaba bu ?

Selamlar,
olacak birşey ama

dosyanız şifreli, küçük bir örnek gönderiyorum. Sanırım istediğiniz bu

kolay gelsin

 

[Orion1]

Dosyanız ektedir.

Private Sub CommandButton2_Click()
Dim kalan As Double, msj As String, i As Byte
Dim sat As Long
sat = Sheets("Data").Cells(65536, "B").End(xlUp).Row + 1
If sat >= 65533 Then
    MsgBox "Sayfada satır doldu." & vbLf & "İşlem İptal oldu", vbCritical, "UYARI"
    Exit Sub
End If
If Not IsDate(TextBox1.Text) Then
    MsgBox "Lütfen geçerli bir tarih giriniz", vbCritical, "UYARI"
    TextBox1.SetFocus
    Exit Sub
End If
If TextBox4.Text <> "" And Not IsNumeric(TextBox4.Text) Then
    MsgBox "Lütfen sayısal bir değer giriniz.", vbCritical, "UYARI"
    TextBox4.SetFocus
    Exit Sub
End If
kalan = TextBox4.Text
Sheets("Data").Cells(sat, "B").Value = CDate(TextBox1.Text)
Sheets("Data").Cells(sat, "C").Value = TextBox2.Text
Sheets("Data").Cells(sat, "D").Value = kalan
For i = 1 To 10
    If Controls("CheckBox" & i).Value = True Then msj = msj & " " & Controls("CheckBox" & i).Caption
Next
Sheets("Data").Cells(sat, "E").Value = msj
MsgBox "Kayıt Başarı ile girildi" & vbLf & _
"evrengizlen@hotmail.com", vbOKOnly + vbInformation, "E V R E N"
TextBox2.Text = ""
TextBox4.Text = 0
TextBox1.SetFocus
End Sub

 

[Mahir64]

mrb

komutan63 teşekkürler bu örnek userform da acemiler (ben) için geliştirileilir bir örnek

 

[rekkezum]

Selamlar,
olacak birşey ama

dosyanız şifreli, küçük bir örnek gönderiyorum. Sanırım istediğiniz bu

kolay gelsin

Hocam ellerine sağlı pratik ve anlaşılması kolay bir örnek olmuş. Bu örneğe şunu eklemek mümkünmüdür acaba, userforma bir "kayıt ara" düğmesi tc kimlik numarasına göre arasın bul diyince bulsun "sil" düğmesi ile silsin ve "değiştir" düğmesi ile düzeltme imkanı versin.benim asıl yapmak istediğim sadece userformun görünmesi, excelde göster düğmesi de olsa isteğe bağlı olarak excelde görüntülense. ilginiz için birkez daha teşekkür ederim...