riviera1974
Gebruiker
- Lid geworden
- 20 feb 2012
- Berichten
- 25
Hallo allemaal,
Allereerst condoleance aan de nabestaande
------------------------------------------------
Hopelijk kunnen jullie me helpen, namelijk;
IK heb een msgBox gemaakt welke de informatie weer moet geven van de resenste datum (kolom B) van blad2 of laatste row. Nu is het me voor zover gelukt dat ik wel een msgBox krijg met de informatie van de 2de row.
Kolom A; Naam
Kolom B; Datum
Kolom C; Uitvalcode
Kolom D; Onderdeel
Kolom E; Lijn
Kokom F; Probleem
Kolom G t/m K; voorstellen.
vb:
Private Sub cmdLaatsteWijziging_Click()
MsgBox " Naam: " & Worksheets("Blad2").Range("A2") & Chr(10) & " Datum: " & Worksheets("Blad2").Range("B2") & Chr(10) & Chr(10) & "Uitvalcode: " & Worksheets("Blad2").Range("C2") & Chr(10) & " Probleem: " & Worksheets("Blad2").Range(" F2") & Chr(10) & Chr(10) & " Onderdeel: " & Worksheets("Blad2").Range("D2") & " " & Worksheets("Blad2").Range("E2") & Chr(10) & Chr(10) & " Voorstel 1: " & Worksheets("Blad2").Range("G2") & Chr(10) & " 2: " & Worksheets("Blad2").Range("H2") & Chr(10) & " 3: " & Worksheets("Blad2").Range("I2") & Chr(10) & " 4: " & Worksheets("Blad2").Range("J2") & Chr(10) & " 5: " & Worksheets("Blad2").Range("K2"), vbExclamation, "Laatste wijziging"
End Sub
Weet iemand hoe ik de code moet aanpassen zodat ik wel altijd resenste row op Datum (of laaste row Blad2) krijg?
Met vriendelijke groet,
Riviera
Allereerst condoleance aan de nabestaande
------------------------------------------------
Hopelijk kunnen jullie me helpen, namelijk;
IK heb een msgBox gemaakt welke de informatie weer moet geven van de resenste datum (kolom B) van blad2 of laatste row. Nu is het me voor zover gelukt dat ik wel een msgBox krijg met de informatie van de 2de row.
Kolom A; Naam
Kolom B; Datum
Kolom C; Uitvalcode
Kolom D; Onderdeel
Kolom E; Lijn
Kokom F; Probleem
Kolom G t/m K; voorstellen.
vb:
Private Sub cmdLaatsteWijziging_Click()
MsgBox " Naam: " & Worksheets("Blad2").Range("A2") & Chr(10) & " Datum: " & Worksheets("Blad2").Range("B2") & Chr(10) & Chr(10) & "Uitvalcode: " & Worksheets("Blad2").Range("C2") & Chr(10) & " Probleem: " & Worksheets("Blad2").Range(" F2") & Chr(10) & Chr(10) & " Onderdeel: " & Worksheets("Blad2").Range("D2") & " " & Worksheets("Blad2").Range("E2") & Chr(10) & Chr(10) & " Voorstel 1: " & Worksheets("Blad2").Range("G2") & Chr(10) & " 2: " & Worksheets("Blad2").Range("H2") & Chr(10) & " 3: " & Worksheets("Blad2").Range("I2") & Chr(10) & " 4: " & Worksheets("Blad2").Range("J2") & Chr(10) & " 5: " & Worksheets("Blad2").Range("K2"), vbExclamation, "Laatste wijziging"
End Sub
Weet iemand hoe ik de code moet aanpassen zodat ik wel altijd resenste row op Datum (of laaste row Blad2) krijg?
Met vriendelijke groet,
Riviera