MSGBOX daki verileri düzenleme(Örnek dosya)

Cevapla
ptcsite46
Mesajlar: 2
Kayıt: Çrş Tem 12, 2023 11:56 pm
Lokasyon: Aydın
Meslek: Memur
Adınız: Aydın
Soyadınız: Oksuz

MSGBOX daki verileri düzenleme(Örnek dosya)

Mesaj gönderen ptcsite46 »

Ekte Mesaj Kutusunda çıkan verileri düzenli bir şekilde nasıl sıralayabilirim. Bir türlü Yapamadım


Resim




ORNEK.xlsm
Bu mesaja eklenen dosyaları görüntülemek için gerekli izinlere sahip değilsiniz.
erseldemirel
Mesajlar: 68
Kayıt: Cmt Haz 24, 2023 12:23 am
Web Sitesi: https://erseldemirel.com.tr/
Adınız: Ersel
Soyadınız: Demirel

Re: MSGBOX daki verileri düzenleme(Örnek dosya)

Mesaj gönderen erseldemirel »

Bu kodu test edin işinize yararmı?

Kod: Tümünü seç

Sub Sirala()
    Set veriAraligi = Range("A2:B39")
    veriAraligi.Sort key1:=veriAraligi.Columns(1), order1:=xlAscending, Header:=xlNo
    For Each huc In veriAraligi.Rows
    siralananVeriler = siralananVeriler & huc.Cells(1, 1).Value & vbTab & huc.Cells(1, 2).Value & vbCrLf
    Next huc
    MsgBox "SVeriler:" & vbCrLf & vbCrLf & siralananVeriler
End Sub
sahin
Mesajlar: 25
Kayıt: Pzr Oca 21, 2024 1:44 pm
Adınız: sahin
Soyadınız: sahin

Re: MSGBOX daki verileri düzenleme(Örnek dosya)

Mesaj gönderen sahin »

deneyin

Kod: Tümünü seç

For i = 2 To Range("A10000").End(xlUp).Row
  mesaj = mesaj & Range("a" & i) & " " & Range("b" & i) & " " & vbCrLf
  
Next i
msgbox mesaj
Kullanıcı avatarı
Tarkan VURAL
Doğrulandı
Site Admin
Mesajlar: 53
Kayıt: Prş Haz 22, 2023 12:03 am
Lokasyon: İstanbul
Web Sitesi: http://www.tarkanvural.com.tr
Meslek: Yazılım ve Veri Tabanı Uzmanı
Adınız: Tarkan
Soyadınız: VURAL
İletişim:

Re: MSGBOX daki verileri düzenleme(Örnek dosya)

Mesaj gönderen Tarkan VURAL »

Dostların örneklerine alternatif olarak UserForm tavsiye edebilirim. Verileriniz arttığında mesaj almak yeterli gelmeyebilir.
Tüm örnekleri dosyada toparladım.

Kod: Tümünü seç

Sub Sirala3()
With UserForm1
    With .ListBox1
        .ColumnCount = 2
        .ColumnWidths = "20;100"
            For i = 2 To Range("A10000").End(xlUp).Row
                .AddItem Range("a" & i)
                .List(.ListCount - 1, 1) = Range("b" & i)
            Next i
    End With
    .Show
End With
End Sub
Bu mesaja eklenen dosyaları görüntülemek için gerekli izinlere sahip değilsiniz.
Konu Dışı
Logo Yazılım, Özel Yazılım, Entegrasyon işlemleri, Excel VBA kodlama, Raporlama, Eğitim.. gibi konulardaki destek ihtiyaçlarınız içinhelpdesk@evnyazilim.com.trile irtibata geçebilirsiniz.
Cevapla
  • Benzer Konular
    Cevaplar
    Görüntüleme
    Son mesaj