Çözüldü Mesaj Kutusunda Çıkan Verileri düzenleme nasıl yapılıyor?

[ptcsite]

Resimde alınan veriler mesaj kutusunda çıkıyor ancak nasıl düzenleme yapabilirim? 2 tür buton ekledim ekteki dosyada var. ama ikisinde de karışık oluyor.

 

[ÖmerBey]

Merhaba,
Kodunuzu biraz düzenledim, ancak verilerinizin uzunluğuna göre mesaj kutusunda her zaman bozulma olacaktır. Düzgün görüntüleme için Listbox eklediğiniz bir Userform'u mesaj kutusu gibi kullanabilirsiniz.

Sub msgkut()
Dim DATA, DATA1 As String
Dim RNG As Integer
Dim i As Integer
RNG = Sayfa1.Range("A40").End(xlUp).Row
    For i = 2 To RNG Step 2
        DATA = DATA & Sayfa1.Cells(i, 1) & vbTab & Sayfa1.Cells(i, 2) & vbTab _
                     & Sayfa1.Cells(i + 1, 1) & vbTab & Sayfa1.Cells(i + 1, 2) _
                    & vbLf
    Next i
Msgbox DATA
End Sub

 

[ptcsite]

Teşekkür ederim ömer bet Userformda Liste yapmadan mesaj kutusu hazırlanabiliyor mu? Dediğiniz gibi 1024 karakterden fazla veri var

Son yapılanlar öğreti olsun diye buraya ekliyorum.

 

[ÖmerBey]

Userformda Liste yapmadan mesaj kutusu hazırlanabiliyor mu?

Userform içine ekleyeceğiniz bir Label nesnesiyle 1024 karakter limitini aşabilirsiniz.

 

[ptcsite]

Userform içine ekleyeceğiniz bir Label nesnesiyle 1024 karakter limitini aşabilirsiniz.

Ömer bey dediğinizi öğrene öğrene yapıyorum ama comboboxtan seçtiğim verinin altında labela yansımıyor değerler. Bi bakabilir misin;

 

[ÖmerBey]

Maalesef, bir müddet bilgisayar başında olamayacağım, o yüzden kodlarınızı göremiyorum Foruma konu açarsanız yardımcı olacak birileri çıkacaktır.
İyi çalışmalar...
Düzeltme:
Açtığınız diğer konuyu gördüm. Bahsettiğiniz problem aynısı ise o kodlarda döngü içinde her seferinde label metni yenileniyor. Metni önceki ile birleştirerek devam etmeniz gerekiyor. Aşağıdaki gibi deneyiniz, ya da metni bir değişkene aldırıp en sonunda labele yazdırınız.

frm_ana.lbl_P1 = frm_ana.lbl_P1 & VbLf & Sayfa1.Range("A" & k).Value & "-" & Sayfa1.Range("B" & k).Value

 

[ptcsite]

Maalesef, bir müddet bilgisayar başında olamayacağım, o yüzden kodlarınızı göremiyorum Foruma konu açarsanız yardımcı olacak birileri çıkacaktır.
İyi çalışmalar...
Düzeltme:
Açtığınız diğer konuyu gördüm. Bahsettiğiniz problem aynısı ise o kodlarda döngü içinde her seferinde label metni yenileniyor. Metni önceki ile birleştirerek devam etmeniz gerekiyor. Aşağıdaki gibi deneyiniz, ya da metni bir değişkene aldırıp en sonunda labele yazdırınız.

frm_ana.lbl_P1 = frm_ana.lbl_P1 & VbLf & Sayfa1.Range("A" & k).Value & "-" & Sayfa1.Range("B" & k).Value

Çok teşekkür ederim