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

Příspěvky uživatele

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í.

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

zasílám soubor...

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)

• přihlásit
• registrace

\n

Menu

On-line nástroje

Formulář Faktura

Aktivní diskuse