03. november 2021 - 19:14Der er
8 kommentarer og 1 løsning
Overførsel fra et ark til et andet
Hejsa,
Troede jeg var færdig mede denne :)
Men nedenestående kode overfører de linjer, hvor der står "nej" i kolonne B, som tomme linjer på det ark de overføres til. Men den skal springe linjerne over, hvor der står nej.
Nogen som kan se hvorfor den laver det?
Her et klip af starten af koden, som burde indeholde det der fejler. Og ja, det er en jeg tidligere havde troet var ok, men det er den desværre ikke. Jeg havde ikke testet nok 😒
Sub Oveførtiltilbud2()
Dim ws1 As Worksheet, ws2 As Worksheet, ws3 As Worksheet Dim LR1 As Long, LR2 As Long, LR3 As Long, LR4 As Long, n As Long, i As Long, b As Long, Lastrow As Long
Set ws1 = Sheets("Kalk") Set ws2 = Sheets("Tilbud dansk") Set ws3 = Sheets("Tilbud Engelsk") Worksheets("Tilbud dansk").Unprotect Worksheets("Tilbud engelsk").Unprotect
Så laver den kludder i det, det testede vi også sidste gang. Den over fører så kun et par af de linjer med tekst og intet andet. Så mangler den vel 200 linjer at overføre.
Har ikke testet dit seneste forslag, da jeg ikke helt ved hvor jeg skal sætte det ind. Er det i enden af: ElseIf ws1.Range("B" & i).Value = ("Nej") Then LR2 = LR2 - 1 ?
Jeg mente ellers at det virkede sidst da I hjalp mig og var sgu lidt forvirret da det ikke virkede i går. Her til morgen tog jeg et andet ark og testede den VBA der ikke virkede i går. Den virkede fint. Så opdagede jeg at der var byttet rundt på Tekst og Ja koderne.
Ved ikke hvorfor det virker men ikke når det er omvendt 🤷♂️
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.