Adatok
blomi76
0 bejegyzést írt és 1 hozzászólása volt az általa látogatott blogokban.
A mai posztban ismét szemezgetek a beérkező kérdésekből, ötletekből (bárkinek bármi Office-kérdése van, bátran írjon!), hiszen elég sokfajta problémával küzdünk nap mint nap, tehát lehet, hogy másnak is jól fog jönni, ha egy-egy kérdés válaszát közzéteszem itt.
A mai…..
Belépve többet láthatsz. Itt beléphetsz
Szuper poszt, pont erre lenne szükségem, de valamiért még sem működik.
(Első oszlopomban szerződés nevek vannak, másodikban meg a dátumok, második sornál kezdődnek az adatok.)
Ez van a VBA-ban:
Workbook/open:
Private Sub Workbook_Open()
Call popupuzenet
End Sub
General/popupuzenet:
Sub popupuzenet()
Dim sorszam As Integer
Dim a As Integer
Dim uzi As String
uzi = "A következo szerzodések lejártak: " & vbCrLf & vbCrLf
sorszam = ThisWorkbook.Worksheets("Munka1").Range("B" & Rows.Count).End(xlUp).Row
For a = 2 To sorszam
If ThisWorkbook.Worksheets("Munka1").Range("B" & a) - Date < 0 Then
uzi = uzi & ThisWorkbook.Worksheets("Munka1").Range("A" & a).Value & " "
End If
Next a
MsgBox uzi
End Sub
Ha megnyitom, mindig hibára fut.
A makróba meg automatikusan beírodik ez a (General)-hoz:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
End Sub
Ha ezt a pár sort kitörlöm, akkor jól lefut. De ha becsukok mindent és újra megnyitom, akkor megint előjön a probléma. :-(
Tudsz segíteni?
Köszi előre is!