Výpočet IBAN. Nikde mi to tu nenašlo, tak keď niekto potrebuje, vyskúšajte. Robil som to podľa tohto návodu a testoval na pár známych už prepočítaných číslach, aj podľa NBS, a sedí to.
Niet, čo viac dodať. Taká blbosť...
Úprava podľa SZ.
Tak skúste niečo takéto (Stĺpec C má formát Text):
Sub IncreaseNumber()
Dim Hodnota, Riadok As Long
With ThisWorkbook.Worksheets("Hárok1")
Hodnota = .Cells(5, 3)
If Hodnota = "" Or Not IsNumeric(Hodnota) Then
.Cells(5, 3) = "0001"
Else
Riadok = .Cells(Rows.Count, 3).End(xlUp).Row
If Riadok + 1 > 5 Then .Cells(Riadok + 1, 3) = Format(Val(.Cells(Riadok, 3)) + 1, "0000")
End If
End With
End Sub
Tak?
Vracia to číslo riadku. Pre vrátenie hodnoty z iného stĺpca sa to upraví na:
{=INDEX(B1:B10;MATCH(TRUE;SUBTOTAL(9;OFFSET($A$1;;;ROW(A1:A10)))=3000;0))}
{=INDEX(B1:B10;POZVYHLEDAT(PRAVDA;SUBTOTAL(9;POSUN($A$1;;;ŘÁDEK(A1:A10)))=3000;0))}
Ak nieje presný súčet vráti chybu #NEDOSTUPNÝ
EDIT: Jáj, a keby ste hľadali prvý súčet, ktorý prekročí hranicu, tak "=3000" nahraďte ">3000", príp ">=3000"
No mňa porazí ! Konečne CONCAT/TEXTJOIN
Parameter 1 na konci, treba zmeniť na 0.
Varianty som popisal 3, Tak teraz neviem čo myslíte. Takže máte zálusk na import vyexportovaného súboru ? Alebo máte teda na mysli to, že z jedného Excelu do druheho Excelu. Ak to s tým exportom, tak ho treba dodať nech sa naňho pripravíme, no ak je to iný excel subor, takbto spravíme tuším ešte lahšie. Dajte ešte čo najviacbinformácií, a možno večer sa bVám na to pozriem.
Z brucha:
=INDIRECT("'"&A1&"'!J2")
=NEPŘÍMÝ.ODKAZ("'"&A1&"'!J2")
riadok 33
.Resize(, 31)
vo With nadtým je vlastníkom
.Cells(11, 2)
a to je jedna bunka (teda jednoriadková oblasť a jednostĺpcová oblasť).
V metóde Resize ak nieje uvedený parameter pred/za čiarkou, považuje sa za parameter, aktuálny. Teda aktuálny parameter vlastníka je (1,1). Ten druhý parameter "ColumnSize" ale už v kóde meníme na 31.
Google:
Možno toto je to, čo spomína DAAL:
Mrknite na riadok
connDB.Execute "INSERT INTO SalesManager (EmployeeId, FirstName, Surname, JoinDate) VALUES (2, 'Mary', 'Smith', '6/20/2009')"
To by Vám po nainštalovaní Compatibility Packu malo ísť.
Nainštalujte si aj najnovší Service Pack
https://www.microsoft.com/sk-sk/download/details.aspx?id=8
Ja by som si aj aktualizoval Win (s nastavením Windows Update tak, aby aktualizoval aj ostatné aplikácie Microsoft - čiže aj Office), ak je to ale firemný PC, radšej to konzultujte s IT oddelením. Tí totiž často nemajú radi aktualizácie, ktoré nemajú pod kontrolou (často oprávnene).
A máte vo filtrovanej oblasti nejaké komentáre ?
Ak má Excel 2003 dané položky z návodu v menu Súbor, tak ho skúste, na odstránenie komentárov.
Inak už naozaj netuším. Možno niekto má lepší nápad ... Office 2003 nemám.
Pokusy robte na kópii súboru!
https://www.microsoft.com/sk-sk/download/details.aspx?id=3
Takže sa jedná o Office 2003? Doinštalujte si "Compatibility Pack", mali by ste môcť potom uložiť súbor ako XLSX/XLSM.
Skúste aj ten typ od MS.
Podľa MS sú to komentáre. Skúste uložiť súbor ako XLSX/M (ak je to XLS), alebo odstrániť komentáre.
EDIT: Skúste na kópii súboru - Súbor - Overiť výskyt problémov - Skontrolovať dokument.
EN:
Click on "File"
Click on "Info Tab"
Left Click on "Check File Issues"
Click "Inspect Document"
Click "No" [Seems like it does nothing but must have some impact]
Clickk "Inspect"
Click "Close"
"Save As *.xlsx" or "Save"
Zdroj MS
Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.