- Katılım
- 9 Eylül 2004
- Mesajlar
- 243
- Excel Vers. ve Dili
- Office2003Trk
Sub aktar()
Set s2 = Sheets("Sayfa2")
If [a4] <> "" Then
son = s2.[b65536].End(3).Row + 1
s2.Range(s2.Cells(son, "A"), s2.Cells(son, "F")).Value = [a4:F4].Value
s2.Range(s2.Cells(son, "J"), s2.Cells(son, "K")).Value = [j4:K4].Value
s2.Range(s2.Cells(son, "M"), s2.Cells(son, "M")).Value = [m4:M4].Value
s2.Range(s2.Cells(son, "H"), s2.Cells(son, "H")).Value = [h4:H4].Value
[a4:F4].Value = ""
[h4:H4].Value = ""
[j4:K4].Value = ""
[m4:M4].Value = ""
If MsgBox("KAYIT İŞLEMİ TAMAMLANDI.Başka Müşteri Kaydedebilirsiniz.", vbYes) = vbYes Then Exit Sub
End If
End Sub
bu makroda a4 hücresinde kayıt varsa aktarma işlemi yapıyor mesaj görüntüleniyor. a4 hücresinde kayıt yoksa yani boşsa butona basıldığında "müşteri yok" mesajı gelmesini istiyorum
Set s2 = Sheets("Sayfa2")
If [a4] <> "" Then
son = s2.[b65536].End(3).Row + 1
s2.Range(s2.Cells(son, "A"), s2.Cells(son, "F")).Value = [a4:F4].Value
s2.Range(s2.Cells(son, "J"), s2.Cells(son, "K")).Value = [j4:K4].Value
s2.Range(s2.Cells(son, "M"), s2.Cells(son, "M")).Value = [m4:M4].Value
s2.Range(s2.Cells(son, "H"), s2.Cells(son, "H")).Value = [h4:H4].Value
[a4:F4].Value = ""
[h4:H4].Value = ""
[j4:K4].Value = ""
[m4:M4].Value = ""
If MsgBox("KAYIT İŞLEMİ TAMAMLANDI.Başka Müşteri Kaydedebilirsiniz.", vbYes) = vbYes Then Exit Sub
End If
End Sub
bu makroda a4 hücresinde kayıt varsa aktarma işlemi yapıyor mesaj görüntüleniyor. a4 hücresinde kayıt yoksa yani boşsa butona basıldığında "müşteri yok" mesajı gelmesini istiyorum