Příspěvky uživatele


< návrat zpět

kopírovat do další prázdné buňky (10.12.2015 10:03)

díky za odpověď. Potřebuji aby se mi buňky nepřepisovali, ale
aby se pokaždé když stisknu makro nakopírovali pod buňku která
byla kopírovaná před ní. po zadání cells se buňky přepisují.

kopírovat do další prázdné buňky (10.12.2015 8:45)

Zdravím mam toto makro, kopírování funguje, ale potřeboval bych dopsat aby se
kopírované buňky vkládali do dalšího prázdného řádku ve sloupci.

např:buňka D2 se kopíruje do C4, ale podruhé potřebuji, aby se zkopírovala do
C5 atd...

děkuji za pomoc.

Sub kop data()

Dim strPath2 As String
Dim wbkWorkbook1 As Workbook
Dim wbkWorkbook2 As Workbook


strPath2 = "soubor kam kopíruji data"


Set wbkWorkbook1 = ThisWorkbook
Set wbkWorkbook2 = Workbooks.Open(strPath2)


wbkWorkbook2.Worksheets("List1").Range("F4").Value = _
wbkWorkbook1.Worksheets("Dod.list").Range("O59").Value 'kg

wbkWorkbook2.Worksheets("List1").Range("C4").Value = _
wbkWorkbook1.Worksheets("Tab vyzt").Range("D2").Value 'odběratel

wbkWorkbook2.Worksheets("List1").Range("D4").Value = _
wbkWorkbook1.Worksheets("Tab vyzt").Range("D3").Value 'část

wbkWorkbook2.Worksheets("List1").Range("E4").Value = _
wbkWorkbook1.Worksheets("Tab vyzt").Range("D4").Value 'č.v.

wbkWorkbook2.Worksheets("List1").Range("G4").Value = _
wbkWorkbook1.Worksheets("Dod.list").Range("O60").Value 'm

'zavření
wbkWorkbook2.Close (True)

End Sub

Pozvyhledat (1.12.2014 7:47)

zasílám soubor...

Pozvyhledat (28.11.2014 14:15)

Dobrý den mam problém s funkcí pozvyhledat.
Potřebuji aby se mi v bunce A2 zobrazil obrázek který je schodný s textem v bunce A1 to jsem vyřešil vzorcem, který jsem vložil do názvu vzorec je .

=INDEX(List1!$DB$999:$DB$1007;POZVYHLEDAT(List1!$E$9;+List1!$DA$999:$DA$1007;0))

vše funguje, ale problém je, že toto potřebuji pro 500 řádků. napadlo mě vytvořit 500 názvů, ale možná existuje lepší a hlavně rychlejší způsob. Děkuji za rady.


Uživatelské menu

Nejste přihlášen(a)
avatar\n

Menu

Formulář Faktura

Formulář Faktura IV

Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.

Helios iNuvio

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.

On-line nástroje