Proč hned makrem? :-)
Stačí když ten vzorec napíšeš do první buňky, odentruješ, vybereš znova tu buňku, pak myší najedeš na pravý dolní roh až se ti kurzor změní z bílého tlustého křížku na slabý černý, pak 2x klikneš a je to.
M@
makrem protože pak budu makrem ještě filtrovat tak jsem si myslel aby to bylo v jednom
V bunke D nie je vzorec. Použil som bunku D2
A neviem, ktorý stĺpec je susedný, použil som stlpec "C"
Ak by si chcel presne ten istý vzorec, tak do bunky D2
zadaj =CONCATENATE(1;MID($C$2;4;4))
Sub Makro1()
xxx = Range("D2").FormulaR1C1
Range("C:C").SpecialCells(xlCellTypeBlanks).Select
For Each bunka In Selection
bunka.Offset(, 1).FormulaR1C1 = xxx
Next
End Sub
toto makro mi doplní do prázdných buňek pod tabulku je úplně jedno jestli sloupec C nebo E. to co napsal Jeza funguje jen kdyby to bylo v makru
Veď ty máš prázdne bunky vo vedľajšom stlpci iba pod tou tabuľkou?
Alebo si to myslel inak ako si to napísal?
Application.ScreenUpdating = False
Dim rd As Single
rd = 2
Do While Cells(rd, 3) <> ""
Cells(rd, 4).Formula = "=CONCATENATE(1,MID(C" & rd & ",4,4))"
rd = rd + 1
Loop
Application.ScreenUpdating = True
M@
možná jsem se vyjádřil blbě ale potřebuju když vemu ten můj příklad ten vzorec vložit od D3 do podle vyplněných údajů D44
Application.ScreenUpdating = False
Dim rd As Single
rd = 3
Do While Cells(rd, 3) <> ""
rd = rd + 1
Loop
Cells(2, 4).Copy
Range("D3:D" & rd - 1).PasteSpecial xlPasteFormulas
Application.ScreenUpdating = True
nebo tak :-)
M@
Super takhle to funguje Díky moc
Sorry, niečo som prehliadol.
Sub Makro3()
Range("D2").Select
Set rgstlpec = Intersect(Selection.CurrentRegion, Range("D2:D10000"))
Selection.AutoFill Destination:=rgstlpec
End Sub
8384_objednavky.rar
RSS nejnovější články