• Úvod
• Excel návod
• Excel šablony
• Nástěnka
• Mobility
• Tipy na výlet
• Galerie
• Fórum

MS Excel

Téma: vložení vzorce ve sloupci různý rozsah

Zaslal/a dream2003 7.5.2012 8:22

dobrý den potřeboval bych pomocí makra zkopírovat vzorec z buňky D1 a vložit v tomto sloupci ovšem v rozsahu neprázdných buňek ve vedlejším sloupci tento rozsah se pokaždé mění ukázka souboru v příloze

Příloha: 8384_objednavky.rar (6kB, staženo 23x)

Zaslat odpověď >

---

Jeza.m(7.5.2012 9:57)#008385

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@citovat

dream2003(7.5.2012 10:05)#008386

makrem protože pak budu makrem ještě filtrovat tak jsem si myslel aby to bylo v jednomcitovat

marjankaj(7.5.2012 10:06)#008387

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 Subcitovat

dream2003(7.5.2012 10:14)#008388

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 makrucitovat

marjankaj(7.5.2012 10:33)#008390

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?citovat

Jeza.m(7.5.2012 10:37)#008391

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@citovat

dream2003(7.5.2012 10:39)#008392

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ů D44citovat

Jeza.m(7.5.2012 10:55)#008394

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@citovat

dream2003(7.5.2012 11:00)#008395

Super takhle to funguje Díky moccitovat

marjankaj(7.5.2012 11:15)#008396

Sorry, niečo som prehliadol.

Sub Makro3()
Range("D2").Select
Set rgstlpec = Intersect(Selection.CurrentRegion, Range("D2:D10000"))
Selection.AutoFill Destination:=rgstlpec
End Subcitovat

Uživatelské menu

Nejste přihlášen(a)

• přihlásit
• registrace

\n

Menu

On-line nástroje

Formulář Faktura

Aktivní diskuse