VBa - kopírování podle parametru Vyřešeno

[WikisRuleZz]

Dobrý den,

pořád si lámu hlavu s jednou částí programu a nemůžu na to přijít. Snad mi někdo pomůžete nebo aspoň vnuknete představu.

Problém:

V buňce A1 mám číslo např. 111111
V buňce B1 mám také číslo (jednomístné) 2
V sloupci C bych potřeboval aby se buňka A1 "vynásobila" číslem v B1 a tolikrát se rozkopírovala do sloupce C

Tedy v našem příkladě bude v C1 číslo 111111 a v C2 též 111111. Za předpokladu že by v B1 bylo třeba číslo 5 měly bychom toto rozkopírované pětkrát. Snad jsem nastínil svůj problém dostatečně.


Děkuji za pomoc všem.

[Reklama]

[Poki]

Pokud chcete, aby se bunka A1 vynasobila cislem v B1 a rozkpirovala, mela by bunka C1 obsahovat 222222 a bunka C2 by mela obsahovat take 222222, nebo se A1 nema nasobit B1?

--- Doplnění předchozího příspěvku (25 Led 2011 14:55) ---

Nicmene, az se cislo v A1 ma nebo nema nasobit cislem v B1, tohle vam pomuze:

Kód: Vybrat vše

Sub rozkopirovat()
  For i = 1 To Cells(1, 2)
     Cells(i, 3) = Cells(1, 1) '* Cells(1, 2)
  Next i
End Sub

Pokud v radku 3 odstranite apostrof, budou se hodnoty ve sloupci C nasobit bunkou B1.

[Branscombe]

Anebo by to taky šlo takto:

Kód: Vybrat vše

Option Explicit

Sub kopirovat()

Dim kopirovat_co As Range, kopirovat_kolikrat As Range, kopirovat_kam As Range
Dim i As Long

Set kopirovat_co = Range("A1")
Set kopirovat_kolikrat = Range("B1")
Set kopirovat_kam = Range("C1")

For i = 1 To kopirovat_kolikrat

kopirovat_kam = kopirovat_co.Value
Set kopirovat_kam = kopirovat_kam.Offset(1, 0)

Next i

End Sub



[WikisRuleZz]

Nešťastně jsem použil slovo vynásobila. Pouze chci aby se číslo/text z buňky A nakopíroval do sloupce C tolikrát kolikrát je uvedeno v buňce B.

--- Doplnění předchozího příspěvku (25 Led 2011 16:26) ---

Zkusím to. Děkuji.

--- Doplnění předchozího příspěvku (25 Led 2011 16:28) ---

Pokud chcete, aby se bunka A1 vynasobila cislem v B1 a rozkpirovala, mela by bunka C1 obsahovat 222222 a bunka C2 by mela obsahovat take 222222, nebo se A1 nema nasobit B1?

--- Doplnění předchozího příspěvku (25 Led 2011 14:55) ---

Nicmene, az se cislo v A1 ma nebo nema nasobit cislem v B1, tohle vam pomuze:

Kód: Vybrat vše

Sub rozkopirovat()
  For i = 1 To Cells(1, 2)
     Cells(i, 3) = Cells(1, 1) '* Cells(1, 2)
  Next i
End Sub

Pokud v radku 3 odstranite apostrof, budou se hodnoty ve sloupci C nasobit bunkou B1.

Děkuji. Přesně to s tím apostrofem jsem potřeboval. Funguje jak má.