Excel
- Ustvarjalec teme Floki
- Začetni datum
Si mislil na kaj takega? Zanka se izvaja dokler m ne kaže na prvo prazno celico.
Ta koda počne isto, s to razliko, da pri kopiranju kopira le vsebino celic, ne pa tudi njihovega oblikovanja.
EDIT: Spregledal sem da želiš, da se tudi vrednosti iz D5n kopirajo v E3n in ne v E4n kot kaže slika. Naj te ta ne zavede, je bila narejena preden sem opazil svojo napako. Kodo sem popravil in bi morala delovati bp, slike se mi pač ni dalo spreminjat, je bil prenaporen dan
Upam da bo delovalo in da je to, to kar si iskal.
Koda:
Sub Arrange()
m = 4
n = 4
Worksheets("Sheet1").Cells(m, n).Activate
Do Until ActiveCell.Value = Empty
Selection.Copy
ActiveCell.Offset(-1, -1).Select
ActiveSheet.Paste
ActiveCell.Offset(2, 1).Select
Selection.Copy
ActiveCell.Offset(-2, 1).Select
ActiveSheet.Paste
m = m + 4
Worksheets("Sheet1").Cells(m, n).Activate
Loop
Application.CutCopyMode = False
End SubTa koda počne isto, s to razliko, da pri kopiranju kopira le vsebino celic, ne pa tudi njihovega oblikovanja.
Koda:
Sub ArrangeNoStyles()
m = 4
n = 4
Worksheets("Sheet1").Cells(m, n).Activate
Do Until ActiveCell.Value = Empty
Selection.Copy
ActiveCell.Offset(-1, -1).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ActiveCell.Offset(2, 1).Select
Selection.Copy
ActiveCell.Offset(-2, 1).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
m = m + 4
Worksheets("Sheet1").Cells(m, n).Activate
Loop
Application.CutCopyMode = False
End SubEDIT: Spregledal sem da želiš, da se tudi vrednosti iz D5n kopirajo v E3n in ne v E4n kot kaže slika. Naj te ta ne zavede, je bila narejena preden sem opazil svojo napako. Kodo sem popravil in bi morala delovati bp, slike se mi pač ni dalo spreminjat, je bil prenaporen dan
Nazadnje urejeno:
Podobne teme
