Soru Mesaj Kutusuna Textbox1 içeriğini yazdırmak

[reosman]

Saygıdeğer hocalarım,
Kayıt toplamı ("Veri") sayfasında bulunan Textbox1 içeriğinde yazmaktadır.
Amacım mesajla kaç adet kayıt aktarıldığının bilinmesidir. Fakat bunu beceremedim.
Yardımlarınızı rica ediyorum.

MsgBox ("Toplam " & [Textbox1.Text].Value & " adet kayıt aktarıldı"), vbInformation + vbOKOnly, "Aktarma Başarılı"

 

[YUSUF44]

Köşeli ve normal parantezleri kaldırıp deneyin, bir de başka sayfada çalışıyorsa textbox1 ifadesinden önce Veri sayfasını belirtin. Ayrıca ya text ya da value'yi kullanın.

MsgBox "Toplam " & Sheets("Veri").Textbox1.Text & " adet kayıt aktarıldı", vbInformation + vbOKOnly, "Aktarma Başarılı"

 

[reosman]

Hocam çok teşekkür ederim. Harikasınız.

 

[reosman]

Hocam özür diliyorum. Textbox1 içeriği 0 (Sıfır) ise hata vererek aktarılacak kayıt yok gibi bir mesaj verdirebilirmiyiz.

Dim i As Long, syf As String, c As Range, sat As Long, Mesaj As String
Application.ScreenUpdating = False
Application.Calculation = xlManual
Sheets("Veri").Select

For i = 2 To Cells(Rows.Count, "B").End(xlUp).Row
syf = Cells(i, "D") & "-" & Cells(i, "B")
If varmi(syf) Then
With Sheets(syf)
Set c = .[D].Find(Cells(i, "E"), , xlValues, xlWhole)
If c Is Nothing Then
sat = .Cells(Rows.Count, "B").End(xlUp).Row + 1
.Cells(sat, "A") = sat - 1
.Cells(sat, "B") = Cells(i, "B")
.Cells(sat, "C") = Cells(i, "D")
.Cells(sat, "D") = Cells(i, "E")
.Cells(sat, "E") = Cells(i, "G")
Else
Mesaj = Mesaj & vbLf & Cells(i, "E")
End If
End With
End If
Next i
Application.Calculation = xlAutomatic
Application.ScreenUpdating = True
If Mesaj <> "" Then
MsgBox "Aşağıda Mükerrer Olan Sicillerin Dışındakiler Aktarıldı." & vbLf & "Aktarılmayan Siciller:" & vbLf & Mesaj, vbInformation, "Aktarım Bilgisi"
Else
MsgBox "Toplam " & Sheets("Veri").TextBox1.Text & " adet kayıt aktarıldı", vbInformation + vbOKOnly, "Aktarma Başarılı"
End If

Aktarım yaptığım KOD yukarıdadır.

 

[YUSUF44]

Deneyiniz:

If Mesaj <> "" Then
    MsgBox "Aşağıda Mükerrer Olan Sicillerin Dışındakiler Aktarıldı." & vbLf & "Aktarılmayan Siciller:" & vbLf & Mesaj, vbInformation, "Aktarım Bilgisi"
ElseIf Sheets("Veri").TextBox1.Text = "0" Then
    MsgBox "Aktarılacak Kayıt Yok", vbInformation + vbOKOnly, "Aktarma Başarılı"
Else
    MsgBox "Toplam " & Sheets("Veri").TextBox1.Text & " adet kayıt aktarıldı", vbInformation + vbOKOnly, "Aktarma Başarılı"
End If

 

[reosman]

Yusuf hocam çok teşekkür ederim. İyiki varsınız.