2 ayrı sutundaki bilgileri msgbox ta gormek

[kaan07]

merhaba sayın excel.web.tr üyeleri
ekte sundugum dosyayı burdan yararlanarak hazırlamış bulunmaktayım takıldıgım 1-2 sorum var dosyayı açtıgımda karşıma msgbox kutusu cıkıyor ve hatırlatma yapıyor fakat B sutununda yazılanları göstyeriyor benım isteğim ise komple bütün satırda bulunan yazıları görmek tek sutun ayarlıyabılıyorum ama hepsini görecek şekilde ayarlıyamadım ekte resimde mevcut
şimdiden çok teşekkur ederim
saygılarımla

 

[kaan07]

değerli üstadlar
bana yardımcı olucak kimse yokmu ??
saygılarımla

 

[asi_kral]

Merhaba
Koddaki

    bulunan = bulunan & Cells(c.Row, 2) & " --> " & c.Text & Chr(13)

Bu satırı

bulunan = bulunan & Cells(c.Row, 2) & " -> " & _
            Cells(c.Row, 3) & " -> " & Cells(c.Row, 4) & " -> " & _
            Cells(c.Row, 5) & " -> " & c.Text & " -> " & _
            Cells(c.Row, 10) & Chr(13)

Bununla değiştirip dener misiniz_?

 

[halit3]

değerli üstadlar
bana yardımcı olucak kimse yokmu ??
saygılarımla

Aşağıdaki bölümlerin yerine

bulunan = bulunan & Cells(c.Row, 2) & " --> " & c.Text & Chr(13)

Bunu denermisiniz.

For i = 1 To 10
bulunan = bulunan & Cells(c.Row, i) & Chr(13)
Next

 

[kaan07]

Aşağıdaki bölümlerin yerine

bulunan = bulunan & Cells(c.Row, 2) & " --> " & c.Text & Chr(13)

Bunu denermisiniz.

For i = 1 To 10
bulunan = bulunan & Cells(c.Row, i) & Chr(13)
Next

çok teşekkur ederim
halit bey birde sıra no olan texboxa otomatik sıra ıle numara gelmesini nasıl yapıyoruz
teşekkurler

 

[halit3]

Otomatik sıra numarası için dosyanın açılışnda bu kod çalışacak

Private Sub UserForm_Activate()
txtsıra = Worksheets("Sayfa1").Cells(Rows.Count, "B").End(3).Row - 1
End Sub

kaydet düğmesine ait koddada kodun en altına bunu ekle

txtsıra = Worksheets("Sayfa1").Cells(Rows.Count, "B").End(3).Row - 1

 

[kaan07]

Otomatik sıra numarası için dosyanın açılışnda bu kod çalışacak

Private Sub UserForm_Activate()
txtsıra = Worksheets("Sayfa1").Cells(Rows.Count, "B").End(3).Row - 1
End Sub

kaydet düğmesine ait koddada kodun en altına bunu ekle

txtsıra = Worksheets("Sayfa1").Cells(Rows.Count, "B").End(3).Row - 1

Halit bey
Yardımınız için cok teşekkur ederim
saygılarımla

 

[denizfatihi]

Merhaba,

Bir sorum olacak kodun tamamı aşağıdaki gibi olduğunu düşünürsek bugün ve 15 gün sonrasının tarih aralığını nasıl olur ?

Yardımınız ve ilginiz için şimdiden teşekkürler.

Private Sub Workbook_Open()
On Error Resume Next
bulunan = ""
bul = Range("n13:n10000").Find(Date).Row
If bul > 0 Then
With Range("n13:B10000")
Set c = .Find(Date)
If Not c Is Nothing Then
firstAddress = c.Address
Do
For i = 1 To 10
bulunan = bulunan & Cells(c.Row, i) & Chr(13)
Next
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