31. marts 2003 - 10:05Der er
14 kommentarer og 1 løsning
Makro til udfyldning af tomme celler
Hej
Jeg står lige og mangler noget kode, der gennemløber kolonne A.
Hvis en celle i kolonne A er tom, skal cellens indhold være lig med den ovenstående celle, hvis der vel at mærke er indhold i samme række i kolonne B.
Eks. hvis A2 er tom, og der er data i B2, så skal A2 have samme indhold som A1.
Jeg skal bruge det fordi jeg har en kunde der kopierer data fra pivottabel til andet ark, og ønsker at lave Lopslag på det, og det går der selvfølgelig ged i, når ikke alle celler er udfyldt.
Sub Tomme() Worksheets("Ark1").Activate K = 1 ' kolonne For R = 2 To 10 ' antal Rækker der skal gennemsøges If Cells(R, K) = "" And Cells(R, K + 1) <> "" Then Cells(R, K) = Cells(R - 1, K) End If R = R + 1 Next End Sub
Public Sub Demo() Const lColSeach As Long = 1 Const lRowSeach As Long = 500 Dim lRows As Long
For lRows = 2 To lRowSeach If Cells(lRows, lColSeach).Value = "" Then If Cells(lRows, lColSeach + 1).Value = "" Then Cells(lRows, lColSeach).Value = Cells(lRows - 1, lColSeach).Value Else Cells(lRows, lColSeach).Value = Cells(lRows, lColSeach + 1).Value End If End If Next lRows End Sub
Altså - Hvis eks. B2 er tom, og der er data i C2, så skal B2 være lig med B1.
Lige nu indsætter den værdien fra C2 og ikke fra B1
Men som din makro er lavet (1 - 500), så behøver den ikke at teste på om der er data i den efterflg. kolonne. Det kunne blot være en simpel én der tester på om der er noget i cellen i kolonne B, og hvis den er tom, så skal den være lig med indholdet af den ovenstående celle.
hmm - hvor er i'et i icolseach og minus'et kommet fra......(har du ikke brugt copy/paste) - husk at lColSeach skal være en long, hvis du arbejder med mere end 32.000 rækker!
Haha jeg har lavet copy og paste, var bare ikke god til at beskrive:
For lRows = 2 To lRowSeach If Cells(lRows, lColSeach).Value = "" Then If Cells(lRows, lColSeach + 1).Value = "" Then Cells(lRows, lColSeach).Value = Cells(lRows - 1, lColSeach).Value Else
Hehe jeg tror at det var i 3. linie at jeg slettede +1, det virker i hvert fald fint nu. Men spørg ikke mig hvorfor - du ved jo at jeg er en dum blondine når det gælder kode. Tak for hjælpen.
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.
