Dobrý den,
potřeboval bych poradit s odkazama na buňky. Mám na 50 listech odkaz na datum, které je na první listu. Odkaz mi vlastně akorát přes "=" kopíruje datum na další listy. Problém je v tom, že bych chtěl na první listu přes podmíněné formátování určit sudé a liché týdny podle barev. To by se mi mělo přenést i na další listy. lze to vůbec?
Děkuji.
Ramigas
Jiří497 napsal/a:
Samozřejmě, že to jde. A kdybyste to řekl hned na začátku a vložil přílohu, jak to má vypadat, tak už vám to dáno funguje.
Do makra vložte ještě jednou příkaz pro kopírování, jen změňte číslo 1 ( sloupec A) za číslo 2 ( sloupec B): Worksheets("List2").Cells(j, 1) = Worksheets("List1").Cells(i, 1).Value
Worksheets("List2").Cells(j, 2) = Worksheets("List1").Cells(i, 2).Value
Tak snad to zvládnete
Jiří497 napsal/a:
Pokud se má kopírovat sloupec A na základě B, tak v příkazu if nahraďte číslo 1 číslem 2 If Worksheets("List1").Cells(i, 2).Value > 0 Then
123456789123456 napsal/a:
Sub kopiruj()
Dim i As Integer, j As Integer
j = 1
'zkopíruje A1:A140 pokud > 0
For i = 1 To 140
If Worksheets("List1").Cells(i, 1).Value > 0 Then
Worksheets("List2").Cells(j, 1) = Worksheets("List1").Cells(i, 1).Value
j = j + 1
End If
Next i
End Sub
Dobrý den,
potřeboval bych pomoct s makrem, které když se klikne na "čudlík" tak makro prověří sloupec pod čudlíkem, a kde bude číslo větší než 0 nakopíruje tyto čísla i s jejich názvem (sloupec A) do jiného listu. Jde mi o to, že mám tabulku se 140 řádkami a potřebuju blbu vzdorně udělat toto překopírování do jiného listu s makrem do dalšího programu.
Děkuju.
Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.
Používáte podnikový systém Helios iNuvio? Potřebujete pomoci se správou nebo vyvinout SQL proceduru? Více informací naleznete na stránce Helios iNuvio.