Tak hoď přílohu, upravíme to.citovat
excel, návod, tipy, funkce, makra, vba, tabulky, šablony
Váš průvodce programem Microsoft Excel a programováním maker ve VBA
< návrat zpět
Téma: Počet přidaných řádků
Ty si proste génius. Vyriešil si to aj bez prílohy.citovat
MS Excel
Téma: Počet přidaných řádků 
Zaslal/a junis 16.12.2022 19:40
Ahoj.
Přátelé řeším MsgBox, který by mi vypsal, kolik jsem importem přidal, (řádků) do tabulky
Dokonce se mi i případně v E2 zobrazuje počet stávajících řádků v tabulce.
' Počet nových položek, řídí se podle sloupece A:A
Pocet = wsIdata.Cells(Rows.Count, "A").End(xlUp).Row - 3
MsgBox "Zapsáno " & Pocet & " nových položek do Sestavy.", vbInformation
Spočítá mi to ale všechny i se starými položkamicitovat
Pocet = wsIdata.Cells(Rows.Count, "A").End(xlUp).Row - 3
MsgBox "Zapsáno " & Pocet & " nových položek do Sestavy.", vbInformation
Spočítá mi to ale všechny i se starými položkamicitovat
POCET = Application.WorksheetFunction.Counta(wsIdata.Range("A:A"))
MsgBox "Zapsáno " & POCET & " nových položek do Sestavy.", vbInformationcitovat
MsgBox "Zapsáno " & POCET & " nových položek do Sestavy.", vbInformationcitovat
Tak buď dělám něco špatně, nebo je to to samé. Spočítá všechny řádky. Potřebuji počítat od prvního volného řádku. Data přidávám taky od prvního volného řádku.citovat
To samé to rozhodně není. Ty máš číslo posledního obsazeného řádku ve sloupci "A" mínus 3, ale já jsem ti poslal počet obsazených řádků ve sloupci "A".
Pošli pořádnou přílohu s kompletním kódem, část kódu je k ničemu!citovat
Pošli pořádnou přílohu s kompletním kódem, část kódu je k ničemu!citovat
Tak se mi to povedlo rozchodit. Asi by to šlo i jinak, ale funguje.
Před načtení jsem dal
' Počet nových položek, před načtením podle sloupece A:A
Pocet1 = wsIdata.Cells(Rows.Count, "A").End(xlUp).Row - 3
po načtení
' Počet nových položek, po načtení A:A
Pocet = wsIdata.Cells(Rows.Count, "A").End(xlUp).Row - 3 - Pocet1
' MsgBox hlášení
MsgBox "Import byl proveden." & vbNewLine & "Tímto je přidáno " & Pocet & " nových položek do Sestavy.", vbInformationcitovat
Před načtení jsem dal
' Počet nových položek, před načtením podle sloupece A:A
Pocet1 = wsIdata.Cells(Rows.Count, "A").End(xlUp).Row - 3
po načtení
' Počet nových položek, po načtení A:A
Pocet = wsIdata.Cells(Rows.Count, "A").End(xlUp).Row - 3 - Pocet1
' MsgBox hlášení
MsgBox "Import byl proveden." & vbNewLine & "Tímto je přidáno " & Pocet & " nových položek do Sestavy.", vbInformationcitovat
junis napsal/a:
Tak se mi to povedlo rozchodit. Asi by to šlo i jinak, ale funguje.
Ty si proste génius. Vyriešil si to aj bez prílohy.citovat
Uživatelské menu
Nejste přihlášen(a)
\n
\nMenu
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.
RSS nejnovější články