Userform

[emrebengul]

userforma "s" başlayan kodu girip kaydet dediğimizde excelin A sütununa kaydolmasını, "v" ile başlayan kodu girip sütununa kaydolmasını istiyorum ile http://C:\Users\kübra\Desktop\MAKROS.xlsm

 

[Orion1]

Dosyanızı kapatıp aşağıdaki upload sitesine yükleyip,sonrada linkini giriniz.

DOSYAYI YÜKLE

..

 

[emrebengul]

http://m.yollayap.com/ba3s/1475697636706/my.xlsx

 

[Orion1]

Dosyanız indirilemiyor.
Benim verdiğim linke yükleyiniz.

 

[emrebengul]

http://s9.dosya.tc/server/307jne/Yeni_WinRAR_arsivi.rar.html

 

[Orion1]

Sanırım son yüklediğiniz linkte virüs var.
Lütfen o linki siliniz.

 

[emrebengul]

http://s9.dosya.tc/server/b4wkiv/Yeni_WinRAR_arsivi.rar.html

 

[Orion1]

userforma "s" başlayan kodu girip kaydet dediğimizde excelin A sütununa kaydolmasını, "v" ile başlayan kodu girip sütununa kaydolmasını istiyorum ile http://C:\Users\kübra\Desktop\MAKROS.xlsm

S ile başlayanlar A sütununa yazılcak peki v ile başlayanlar hangi sütuna kaydolacak?

 

[emrebengul]

B sütununa yazılacak

 

[Orion1]

Dosyanız linktedir.

DOSYAYI İNDİR

Private Sub CommandButton1_Click()
Dim sonsat As Long
sonsat = Cells(Rows.Count, "A").End(xlUp).Row + 1
If Not IsDate(TextBox1.Value) Then
    MsgBox "Tarih yanlış girildi!" & vbLf & "İşlem iptal edildi!", vbCritical, "UYARI"
    TextBox1.SetFocus
    Exit Sub
End If
Range("A" & sonsat).Value = CDate(TextBox1.Value)
If Not IsNumeric(TextBox3.Value) Then
    MsgBox "Yanlış giriş!" & vbLf & "Lütfen sayı giriniz.!", vbCritical, "UYARI"
    TextBox3.SetFocus
    Exit Sub
End If
If UCase(VBA.Left(TextBox2.Value, 1)) = "S" Then Range("B" & sonsat).Value = TextBox2.Value
If UCase(VBA.Left(TextBox2.Value, 1)) = "V" Then Range("C" & sonsat).Value = TextBox2.Value
Range("D" & sonsat).Value = CDbl(TextBox3.Value)
MsgBox "Veri kaydedildi."
End Sub