MsgBox daki Karakter Sayısı?

[udentr2002]

Merhaba Arkadaşlar msgbox ile bir uyarı mesajı veriyorum yanlız bu uyarı mesajı çok uzun olunca hepsini göstermiyor msgbox da verilen mesajın içeriklerinde bulunucak kelime yada harf sayısının belli bir limiti varmı varsada bunu arttırabilemmizin şansı varmı ???

 

[Zeki Gürsoy]

Alt alta yazılırsa okunma zorluğu giderilebilir.
2 satıra excel yazmak şu şekilde olabilir.

msgbox "excel" & chr(10) & "exce"

 

[udentr2002]

Hocam

Zeki hocam öncelikle ilgin için teşekkür ederim demek istediğim mesgboxa yazdırılacak olan uyarı mesajı sabit değil yani stündaki hücreyi tarihe göre arayıp bu günün tarihini bulunca o bulduğu hücrenin yanındaki hücrede yazılı olanı uyarı mesajı olarak veriyor bundan dolayı kod içerisinde yazılmıyor işte msgboxa yazdırılacak olan satır yada kelimelerin bir limiti varmı çünkü denemelerim sırasında msgbox içeriği uzun olunca hepsini göstermediğini gördüm böyle bir limit varsa bunu arttırma şansımız varmı?

 

[Zeki Gürsoy]

MsgBox azami karakter sayısı hakkında bilgim yok, ekran doluncaya kadar yazılır.

Zaten hücreden gelecek karakter 255 dir.

 

[udentr2002]

Hocam sanırım bir limiti var çünkü yaptığım denemelerde boşluk ve diğer noktalama karakterleri de dahil 900 - 1000 harf kadar alıyor bunu arttırma şansımız yokmu acaba Bu arada Anemos hocam tek msgboxbir hücreyi vermiyor bulduğu tüm hücreleri birleştirip mesaj olarak veriyor o yüzden bu msgbox un mesajındaki karakter sayısını artırma şansımız varmı??

 

[Korhan Ayhan]

Selamlar,

Eğer Msgbox size yeterli gelmiyorsa Userform kullanmayı deneyiniz.

 

[udentr2002]

hocam

Daha önce forumdaki bir hocamın vermiş olduğu kodları kendi hazırladığım programıma uyarlayarak yapmıştım kodun orjinali aşağıdadır bir hatırlatma uyarsı veren msgbox kodları

Private Sub Workbook_Open()
On Error Resume Next
bulunan = ""
bul = Range("B1:B100").Find(Date).Row
If bul > 0 Then
With Range("B1:B100")
Set c = .Find(Date)
If Not c Is Nothing Then
firstAddress = c.Address
Do
bulunan = bulunan & Cells(c.Row, 1) & " --> " & c.Text & Chr(13)
Set c = .FindNext(c)
Loop While Not c Is Nothing And c.Address <> firstAddress
End If
End With
MsgBox bulunan, vbInformation, "Hatırlanması Gerekenler"
End If
End Sub

Buradaki Msgbox yerine Userformu nasıl kullanabilirim yardımcı olursanız çok sevinirim hocam

 

[bedersu]

Private Sub Workbook_Open()
userform1.show
End Sub

yazarak Userform'u çağırırsınız.Userform'a bir label ekler ve

Private Sub UserForm_Initialize()
On Error Resume Next
bulunan = ""
bul = Range("B1:B100").Find(Date).Row
If bul > 0 Then
With Range("B1:B100")
Set c = .Find(Date)
If Not c Is Nothing Then
firstAddress = c.Address
Do
bulunan = bulunan & Cells(c.Row, 1) & " --> " & c.Text & Chr(13)
Set c = .FindNext(c)
Loop While Not c Is Nothing And c.Address <> firstAddress
End If
End With
Label1.Caption = bulunan
End If
End Sub

yazarsınız.

 

[Korhan Ayhan]

Selamlar,

&#214;rnek bir dosya eklermisiniz.

 

[udentr2002]

bedersu hocam

Dediğiniz kodları uyarladım çok harika oldu Allah razı olsun

 

[bedersu]

Ben de tam onu diyecektim say&#305;n COST_CONTROL,&#199;&#252;nk&#252; benim verdi&#287;im &#351;ekilde boyut sabit kal&#305;yor ve say&#305;n udentr2002'nin istedi&#287;ini tam kar&#351;&#305;lam&#305;yor.Label ve Userform'un boyutunun de&#287;i&#351;ken olmas&#305; laz&#305;m.Bunun i&#231;in de &#246;rnek bir dosya &#231;ok iyi olur.

Ben bunlar&#305; yazarken sizden mesaj gelmi&#351; say&#305;n udentr2002.Bu &#351;ekilde i&#351;inizi g&#246;r&#252;yorsa sorun yok.

 

[asdsxx]

Arkadaşlar bu konuya son mesaj çok uzun zaman önce yazılmış ama şimdi gelişen excell versiyonlarından sonra MsgBox da en üst karakter sayısı limiti kaç adettir yada belirli bir kod ile bu MsgBox daki karakter sayısı artırılabilir mi?

 

[Korhan Ayhan]

Şimdi denedim 1023 karakter alıyor.

 

[asdsxx]

Şimdi denedim 1023 karakter alıyor.

Korhan Bey bu karakter sayısı artırılabilir mi (ek kod ile)

 

[Korhan Ayhan]

Bildiğim kadarıyla arttıramazsınız.

UserForm kullanarak kişisel MsgBox tasarlayabilirsiniz.

 

[asdsxx]

Bildiğim kadarıyla arttıramazsınız.

UserForm kullanarak kişisel MsgBox tasarlayabilirsiniz.

Korhan Bey ilginize teşekkür ederim
Benim kullandığım listview satırına çift tıklatınca MsgBox açılıyor ama karakter sorunu var aşağıdaki kod anlattığım durumun kodu mesela "Mesaj" isminde bir UserForm oluştursam Listview satırına çift tıklatınca MsgBox kutusu yerine UserForm açılması için
Yada şu da olabilir; Mevcut UserForm içine Bir tane TextBox oluşturulup çift tıklatınca MsgBox yerine oluşturulan Textbox açılabilir. Textbox ismi "mesaj" olduğunu varsayarsak...
aşağıdaki kodda nasıl bil değişiklik yapmak gerekir.
..............................................
Private Sub ListView1_DblClick()
If ListView1.ListItems.Count = 0 Then Exit Sub
X = ListView1.SelectedItem.Index
'ListView1.ListItems(x)
MsgBox ListView1.ListItems(X).ListSubItems(1).Text & Chr(10) & Chr(10) & _
ListView1.ListItems(X).ListSubItems(2).Text, vbApplicationModal, "Mealler"
'On Error Resume Next
'ScrollBar1.Value = x
End Sub
...............................................

 

[Korhan Ayhan]

Dosyanıza bir Userform ekleyin. Üzerine bir adet TextBox ekleyin. Şeklini şemalini ayarlayın.

Ben UserForm2 ve TextBox1 olarak düzenledim. Kendinize göre uyarlarsınız.

Sonra kodunuzu aşağıdaki gibi düzeltip deneyin.

Private Sub ListView1_DblClick()
If ListView1.ListItems.Count = 0 Then Exit Sub
X = ListView1.SelectedItem.Index
'ListView1.ListItems(x)
Userform2.TextBox1 = ListView1.ListItems(X).ListSubItems(1).Text & Chr(10) & Chr(10) & _
ListView1.ListItems(X).ListSubItems(2).Text
Userform2.Caption = "Mealler"
Userform2.Show
'On Error Resume Next
'ScrollBar1.Value = x
End Sub

 

[asdsxx]

Dosyanıza bir Userform ekleyin. Üzerine bir adet TextBox ekleyin. Şeklini şemalini ayarlayın.

Ben UserForm2 ve TextBox1 olarak düzenledim. Kendinize göre uyarlarsınız.

Sonra kodunuzu aşağıdaki gibi düzeltip deneyin.

Private Sub ListView1_DblClick()
If ListView1.ListItems.Count = 0 Then Exit Sub
X = ListView1.SelectedItem.Index
'ListView1.ListItems(x)
Userform2.TextBox1 = ListView1.ListItems(X).ListSubItems(1).Text & Chr(10) & Chr(10) & _
ListView1.ListItems(X).ListSubItems(2).Text
Userform2.Caption = "Mealler"
Userform2.Show
'On Error Resume Next
'ScrollBar1.Value = x
End Sub

Korhan Bey Süper oldu.
Ellerinize sağılık.
Teşekkürler

 

[asdsxx]

Korhan Bey yardımınız sayesinde sıkıntımı giderdim. Çok Teşekkürler...
Sizden bir istirhamım olacak aşağıdaki kod da listView nesnesi yerine tıpkı MsgBox da olduğu gibi UserForm ve TextBox olacak şekilde düzenleyebilirmisiniz.
Listview de de aynen MsgBox gibi karakter sayısı sıkıntısı var hatta listview de sanırım 255 sınır. eğer yukarıdaki şekilde olduğu gibi Listview yerine UserForm ve TextBox ile sorunu çözmek istiyorum.

Kod:
...............................................................
Private Sub ComboBox3_Click()

If deg = 1 Then Exit Sub

Lab2 = 3

sut3 = Combo2.ListIndex + sut9 '

'ActiveSheet.Name
If ComboBox3.ListCount <= 0 Then Exit Sub
If ComboBox3.ListIndex = "-1" Then Exit Sub


sat = Val(ComboBox3.List(ComboBox3.ListIndex, 0))

ListView1.ListItems.Clear
X = 0

sat = Val(ComboBox3.List(ComboBox3.ListIndex, 0))
For i = sut9 To Worksheets(sayf1).Cells(1, Columns.Count).End(xlToLeft).Column 'Worksheets(sayf1).Cells(Rows.Count, sut9).End(3).Row
X = X + 1

ListView1.ListItems.Add , , X

If X Mod 2 = 1 Then
ListView1.ListItems(X).ForeColor = 255 '16711680
ListView1.ListItems(X).Bold = True ' = 255
End If

ListView1.ListItems(X).ListSubItems.Add , , Worksheets(sayf1).Cells(1, i)

If X Mod 2 = 1 Then
ListView1.ListItems(X).ListSubItems(1).ForeColor = 255 '16711680
ListView1.ListItems(X).ListSubItems(1).Bold = True ' = 255
End If

With ListView1.ListItems(X).ListSubItems
'For r = sut9 To Worksheets(sayf1).Cells(1, Columns.Count).End(xlToLeft).Column
.Add , , Worksheets(sayf1).Cells(sat, i)
If X Mod 2 = 1 Then
ListView1.ListItems(X).ListSubItems(2).ForeColor = 255 '16711680
ListView1.ListItems(X).ListSubItems(2).Bold = True ' = 255
End If
'Next
End With


Next

'sayf1 = "data"
veri = ""
'ActiveSheet.Name
If ComboBox3.ListIndex = "-1" Then Exit Sub
sat = Val(ComboBox3.List(ComboBox3.ListIndex, 0))


If CheckBox2.Value = True Then
veri1 = Worksheets(sayf1).Cells(sat, sut5).Value & ekle
Else
veri1 = Worksheets(sayf1).Cells(sat, sut4).Value & ekle
End If

TextBox1.Text = veri1

veri2 = Worksheets(sayf1).Cells(sat, sut3).Value
'TextBox2.Text = veri2

If veri2 = "" Then
For s = sat To sat - 20 Step -1
If Worksheets(sayf1).Cells(s, sut3).Value <> "" Then
veri2 = Worksheets(sayf1).Cells(s, sut3).Value
TextBox2.Text = veri2
Exit For
End If
Next s
Else
TextBox2.Text = veri2
End If


sut2 = Combo1.ListIndex + sut9 '
veri3 = Sheets(sayf1).Cells(sat, sut2).Value

If veri3 = "" Then
For s = sat To sat - 20 Step -1
If Worksheets(sayf1).Cells(s, sut2).Value <> "" Then
veri3 = Worksheets(sayf1).Cells(s, sut2).Value
TextBox3.Text = veri3
Exit For
End If
Next s
Else
TextBox3.Text = veri3
End If


Lab1 = sat
TextBox1.SetFocus
TextBox1.CurLine = 0
TextBox2.SetFocus
TextBox2.CurLine = 0
TextBox3.SetFocus
TextBox3.CurLine = 0
ComboBox2.SetFocus

ComboBox3.SetFocus
UserForm4.Hide
End Sub

 

[Korhan Ayhan]

Son eklediğiniz kod bloğu diğer gibi değil. Bu son paylaştığınızda döngü ile nesneye veriler yükleniyor.

Bu sebeple örnek dosya paylaşıp durumu tarif etmelisiniz.