MS Excel

Téma: vkládání řádků do tabulky VBA

Zaslal/a fallecimiento 12.2.2015 11:12

Zdravím všechny, potřeboval bych poradit, věřím že pro Vás, s lehkým makrem….mám tabulku s určitými daty, to není podstatné….potřebuji makro, které bych přidal tlačítku, po jehož stisknutí by se mi objevil formulář které by se mě zeptal, kolik řádků chci přidat k tabulce, po zadání čísla (řekněme od 1 - 20) by na konec tabulky přidal (zkopíroval) mnou zvolený počet řádků které by měly vše stejné jako do této chvíle poslední řádek tabulky (podmíněné formátování, ověření dat, formát....) ale byly by bez dat kromě jednoho sloupce (sloupce I) ve kterém je vzorec který bych potřeboval aby se jako jediný ze zadaných dat kopíroval...díky všem za nápady a rady

Zaslat odpověď >

kp57(12.2.2015 21:37)#023605

To ses mohl zeptat v tom předešlém tématu.Dim iRow As Long, xRadku As Byte
'zjisti cislo posledniho radku
iRow = Range("I65000").End(xlUp).Row
'pocet kopirovanych radku
On Error Resume Next
xRadku = InputBox("prompt", "title", 1)
On Error GoTo 0
If xRadku > 0 Then
'kopiruj xRadky vzorec
Range("I" & iRow).Copy Range("I" & iRow + 1 & ":I" & iRow + xRadku)
'kopiruj xRadky format
Range("A" & iRow & ":I" & iRow).Copy
Range("A" & iRow + 1 & ":I" & iRow + xRadku).PasteSpecial (xlPasteFormats)
Application.CutCopyMode = False
Range("I" & iRow + 1).Select
End If
citovat

fallecimiento(13.2.2015 8:36)#023612

Díky moc...ano, uznávám, že mohl, ale vůbec mě to nenapadlo...nebo spíš přepokládal jsem, že se budou vkládat řádky z jiného listu, že se budou opakovat...problém je, že si vymyslel šéf něco jiného a prostě to opakování a překopírování z jiného listu mi nestačí :-( doufám, že už si nic dalšího nevymyslí... :-( ještě jednou moc díkcitovat

Téma: vkládání řádků do tabulky VBA

Uživatelské menu

Menu

Formulář Faktura

Formulář Faktura IV

Helios iNuvio

On-line nástroje