Msgbox til udskrivning af udvalgte ark

hvordan vælger du flere ark

Lav en userform.
Smid checkboks på den - lige så mange checkboxe som der er ark.
Smid en OK knap på
I OK-knappens Click event læser du alle checkboxene, og er de "tjekkede" bruger du den kode du allerede har:

cmdOK_Click
Dim navn As String
dim i as long

if Check1.cheked = True then
  i = i+1
  navn = "Bilag " & i
  Sheets("Ark1").Range("H1") = navn
  ActiveSheet.PrintOut
  End If

  'osv.
End Sub

Jeg har problemer med .cheked - Jeg får at vide at metoden ikke findes! Hvad skal der stå?

if Check1 then

du behøver ikke det andet

men ellers er det
if Check1 = true then

Tak kabak :-)

Der er også noget galt med Sheets("Ark1").Range("H1") = navn

Jeg har godt nok ændret det til: Sheets("Girokort").Range("J38") = navn

Hvor "Girokort" er arknavn og "J38" er den celle, hvor der skal stå Bilag 1.

Er det ikke rigtigt forstået?

Private Sub CommandButton1_Click()
Dim navn As String, i as long
svar = InputBox("Indtast bilagsnr.:", "Bilagsnummer")

i = val(svar)

if Check1.cheked = True then
  navn = "Bilag " & i
  Sheets("Girokort").Range("J38") = navn
  ActiveSheet.PrintOut
  i = i+1
  End If
  'osv.


End Sub

noget i den retning, jeg tror du savnede inputboxen

Private Sub CommandButton1_Click()
Dim navn As String, i as long
svar = InputBox("Indtast bilagsnr.:", "Bilagsnummer")

i = val(svar)

if Check1 = True then ' glemte at rette
  navn = "Bilag " & i
  Sheets("Girokort").Range("J38") = navn
  ActiveSheet.PrintOut
  i = i+1
  End If
  'osv.


End Sub

noget i den retning, jeg tror du savnede inputboxen

"Jeg har problemer med .cheked - Jeg får at vide at metoden ikke findes! Hvad skal der stå?"

.Checked - der var en stavefejl.

Skriv checked - det giver lidt pænere programmering, og det er lettere at læse koden

Martin Moth 02/11-2004 06:39:33> Der er stadig fejl i metoden..

Kabbak 01/11-2004 21:22:44> Så vidt jeg kan se, så har du lavet det sådan, at jeg selv skal indtaste bilagsnummer: svar = InputBox("Indtast bilagsnr.:", "Bilagsnummer") Det har jeg ikke brug for - Det virker faktisk heller ikke! Jeg har brug for, at den selv vælger hvilket bilagsnummer den enkelte udskrift skal have, sådan at den første IF-sætning der er "True" får Bilagsnummer 1 og 2. Bilag 2 osv.

Private Sub CommandButton1_Click()
Dim navn As String, i as long

i =1
if Check1 = True then ' glemte at rette
  navn = "Bilag " & i
  Sheets("Girokort").Range("J38") = navn
  ActiveSheet.PrintOut
  i = i+1
  End If
  'osv.


End Sub

Private Sub CommandButton1_Click()
Dim navn As String, i as long

i =1
if Check1 = True then ' glemte at rette
  navn = "Bilag " & i
  Sheets("Girokort").Range("J38") = navn
  Sheets("Girokort").select ' mon ikke denne linie skal med
  ActiveSheet.PrintOut
  i = i+1
  End If
  'osv.


End Sub

Martin Moth 02/11-2004 06:39:33> Der er stadig fejl i metoden..

Det er fordi der skal stå .Value

Du kan selv se hvilke metoder der er tilgængelige for diverse objekter, idet VB(A) viser de mulige metoder i en dropdown når du har skrevet objektnavn efterfulgt af punktum

martin_moth 03/11-2004 07:23:00> Jeg får stadig fejl..... Har du prøvet og tjekke det inden du giver mig svaret? Det kan jo være min opsætning af Excel - Eller hvad? Jeg kender godt dropdown.

kabbak> Det virker ikke. Jeg når jeg klikker på OK efter at haver markeret en checkbox, sker der ikke noget!

Her har du hele makroen. håber du kan finde en løsning! En anden ting. Jeg kan ikke forstå at i ALTID er = 1 og at der skal ligges 1 til i hver gang. Giver det ikke bilagsnummer 1 hver gang?


Private Sub cmdOK_Click()
Dim navn As String, i As Long

i = 1
If cdGirokort = True Then
  navn = "Bilag " & i
  Sheets("Girokort").Range("J38") = navn
  Sheets("Girokort").Select
  ActiveSheet.PrintOut
  i = i + 1
  End If

If cdKontantrabatter = True Then
  navn = "Bilag " & i
  Sheets("Kontantrabatter").Range("E28") = navn
  Sheets("Kontantrabatter").Select
  ActiveSheet.PrintOut
  i = i + 1
  End If

If cdValørtabValørgevinst = True Then
  navn = "Bilag " & i
  Sheets("Valørtab-valørgevinst").Range("J36") = navn
  Sheets("Valørtab-valørgevinst").Select
  ActiveSheet.PrintOut
  i = i + 1
  End If
 
  If cdFakturaBetingelser = True Then
  navn = "Bilag " & i
  Sheets("Faktura betingelser").Range("L21") = navn
  Sheets("Faktura betingelser").Select
  ActiveSheet.PrintOut
  i = i + 1
  End If

If cdTotalOversigt = True Then
  navn = "Bilag " & i
  Sheets("Total oversigt").Range("E19") = navn
  Sheets("Total oversigt").Select
  ActiveSheet.PrintOut
  i = i + 1
  End If
 
End Sub

martin_moth 03/11-2004 07:23:00> Du får også lige hele makroen. Håber du kan finde fejlen!

Private Sub cmdOK_Click()
Dim navn As String
Dim i As Long

If cdGirokort.Value = True Then
  i = i + 1
  navn = "Bilag " & i
  Sheets("Girokort").Range("J38") = navn
  ActiveSheet.PrintOut
  End If

If cdKontantrabatter.Value = True Then
  i = i + 1
  navn = "Bilag " & i
  Sheets("Kontantrabatter").Range("E28") = navn
  ActiveSheet.PrintOut
  End If
 
If cdValørtabValørgevinst.Value = True Then
  i = i + 1
  navn = "Bilag " & i
  Sheets("Valørtab-valørgevinst").Range("J36") = navn
  ActiveSheet.PrintOut
  End If

If cdFakturaBetingelser.Value = True Then
  i = i + 1
  navn = "Bilag " & i
  Sheets("Faktura betingelser").Range("L21") = navn
  ActiveSheet.PrintOut
  End If

If cdTotalOversigt.Value = True Then
  i = i + 1
  navn = "Bilag " & i
  Sheets("Total oversigt").Range("E19") = navn
  ActiveSheet.PrintOut
  End If

End Sub

Kommentar: h_s
06/11-2004 09:18:39

Har testet koden og det virker fint.

kabbak> kan det være fordi jeg har kaldt checkboxene cdGirokort, cdKontantrabatter osv. Så er det vel rigtigt, at jeg skal ændre dine Check1 til det?

jeg har brugt dine navne, så det er ok

Ok har fundet fejlen.......... Jeg skal jo stave navnene rigtigt begge steder!
Det virker ok, men hvad er det for en metode jeg skal bruge for at få formularen lukket efter jeg har trykket ok? Jeg har prøvet med .close og .cancel. Ikke noget af det virker! Hvis jeg vil anuller udskrivningen hvad skal jeg så skrive. Kabbak gi´ et svar, så får du dine point - igen!

afslut med

Unload Me
End Sub


og et svar