- Katılım
- 14 Ocak 2005
- Mesajlar
- 792
- Excel Vers. ve Dili
- Ofis 2010 2016
- Altın Üyelik Bitiş Tarihi
- 13/03/2022
Private Sub ComEkle_Click()
If TFisNo.Value = Empty Then
MsgBox "Lütfen FişNo Giriniz"
TFisNo.SetFocus
end sub
Else
Goto kayit
End If
kayit:
end if
Range("A13").Select
Do While Not IsEmpty(ActiveCell)
ActiveCell.Offset(1, 0).Select
Loop
If Range("A13").Value = "" Then
Range("A13").Value = 1
Range("A13").Select
Else
ActiveCell.Value = ActiveCell.Offset(-1, 0).Value + 1
End If
ActiveCell.Offset(0, 1).Value = TFisNo.Text
ActiveCell.Offset(0, 2).Value = TKirlTar.Text
ActiveCell.Offset(0, 3).Value = TOdaNo.Text
ActiveCell.Offset(0, 4).Value = TTutar.Text
ActiveCell.Offset(0, 5).Value = TFree.Text
ActiveCell.Offset(-1, 6).Copy ActiveCell.Offset(0, 6)
ActiveCell.Offset(-1, 7).Copy ActiveCell.Offset(0, 7)
ActiveCell.Offset(-1, 8).Copy ActiveCell.Offset(0, 8)
ActiveCell.Offset(-1, 9).Copy ActiveCell.Offset(0, 9)
ActiveCell.Offset(0, 10).Value = 1
ActiveCell.Offset(0, 11).Value = TAciklama.Text
ActiveCell.Offset(-1, 12).Copy ActiveCell.Offset(0, 12)
'Formu Temizler Ve yeni giriş başlamak için Fiş Giriş i seçer
TFisNo.Text = ""
TKirlTar.Text = ""
TOdaNo.Text = ""
TTutar.Text = ""
TFree.Text = ""
TFisNo.SetFocus
End Sub
burda yapmak istediğim TFisNo Texbox nesnesini kontrol edip eğer boş ise
bir mesaj gösterip sonrada tekrar TFisNo TexBox nesnesini seçip sup dan çıkmak istiyorum
eğer dolu ise yani koşulun tersi ise Else komutundan sonra Goto Kayit yazıp
Alttaki kayit: satırından itibaren çalışmaya başlamasını sağlamaktı ama bir türlü yapamıyorum
If TFisNo.Value = Empty Then
MsgBox "Lütfen FişNo Giriniz"
TFisNo.SetFocus
end sub
Else
Goto kayit
End If
kayit:
end if
Range("A13").Select
Do While Not IsEmpty(ActiveCell)
ActiveCell.Offset(1, 0).Select
Loop
If Range("A13").Value = "" Then
Range("A13").Value = 1
Range("A13").Select
Else
ActiveCell.Value = ActiveCell.Offset(-1, 0).Value + 1
End If
ActiveCell.Offset(0, 1).Value = TFisNo.Text
ActiveCell.Offset(0, 2).Value = TKirlTar.Text
ActiveCell.Offset(0, 3).Value = TOdaNo.Text
ActiveCell.Offset(0, 4).Value = TTutar.Text
ActiveCell.Offset(0, 5).Value = TFree.Text
ActiveCell.Offset(-1, 6).Copy ActiveCell.Offset(0, 6)
ActiveCell.Offset(-1, 7).Copy ActiveCell.Offset(0, 7)
ActiveCell.Offset(-1, 8).Copy ActiveCell.Offset(0, 8)
ActiveCell.Offset(-1, 9).Copy ActiveCell.Offset(0, 9)
ActiveCell.Offset(0, 10).Value = 1
ActiveCell.Offset(0, 11).Value = TAciklama.Text
ActiveCell.Offset(-1, 12).Copy ActiveCell.Offset(0, 12)
'Formu Temizler Ve yeni giriş başlamak için Fiş Giriş i seçer
TFisNo.Text = ""
TKirlTar.Text = ""
TOdaNo.Text = ""
TTutar.Text = ""
TFree.Text = ""
TFisNo.SetFocus
End Sub
burda yapmak istediğim TFisNo Texbox nesnesini kontrol edip eğer boş ise
bir mesaj gösterip sonrada tekrar TFisNo TexBox nesnesini seçip sup dan çıkmak istiyorum
eğer dolu ise yani koşulun tersi ise Else komutundan sonra Goto Kayit yazıp
Alttaki kayit: satırından itibaren çalışmaya başlamasını sağlamaktı ama bir türlü yapamıyorum