Avatar billede cortez-campos Nybegynder
20. december 2007 - 12:44 Der er 5 kommentarer

VBA koder der udskriver hver 2. række.

Jeg har disse koder, som jeg bruger til udskrivning af sedler som kommer på paller.
Oprindeligt var cellerne flettet, så derfor skulle den kun udskrive det tekst som stod i hver 2. række, men nu har jeg fjernet fletningen, så nu er det alle rækkerne den skal udskrive, men jeg kan ikke se hvor i koden det bestemmes at den skal springe 1 række over??

Sub UdskrivPallesedler(kol1)
    modTager = Cells(4, kol1)
   
    For ræk = 6 To 65000 Step 2
        antalSedler60 = 0
        antalSedlerX = 0
        antalX = 0
       
        If Cells(ræk, 1) <> "" Then
            brødType = Cells(ræk, 1)
           
            If Cells(ræk + 1, kol1) <> "" And Cells(ræk + 1, kol1) <> " " Then
                antalSedler60 = Cells(ræk + 1, kol1)
            Else
                antalSedler60 = 0
            End If
                       
            If Cells(ræk + 1, kol1 + 1) <> "" Then
                If Cells(ræk + 1, kol1 + 1) <> 0 Then
                    antalSedlerX = antalSedlerX + 1
                    antalX = Cells(ræk + 1, kol1 + 1)
                End If
            End If
           
            If antalSedler60 > 0 Then
                tilPasPakkeseddel 60
                udskrivSeddel antalSedler60
            End If
           
            If antalSedlerX > 0 Then
                tilPasPakkeseddel antalX
                udskrivSeddel antalSedlerX
            End If
        Else
            MsgBox ("Udskrivning til: " + modTager + " er afsluttet")
            Exit For
        End If
    Next ræk
   
End Sub
Avatar billede mugs Novice
20. december 2007 - 12:46 #1
Tror det er her:

For ræk = 6 To 65000 Step 2

Men kopier din kode da jeg ikke er verdensmester i Excel
Avatar billede mugs Novice
20. december 2007 - 12:47 #2
Prøv med denne:

For ræk = 6 To 65000
Avatar billede cortez-campos Nybegynder
20. december 2007 - 12:53 #3
Nej det hjalp ikke, det tager forsat ikke tallene og navnene på produkterne fra samme række.

Tallene den udskriver tager den fra rækken under navnene.
Avatar billede epimetheus Nybegynder
20. december 2007 - 22:40 #4
Alle de steder hvor der står

ræk + 1

er det jo netop næste række den tager.

Prøv at fjerne + 1
Avatar billede cortez-campos Nybegynder
20. december 2007 - 22:55 #5
Jeps den virkede, kom bare med et svar :o)
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester