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

MS Excel

Téma: Chyba pri triedení

Zaslal/a Denis 2.12.2021 22:58

Zdravím vospolok,
prosím o pomoc: Mám export z banky a chcem ho zotriediť. Snažil som sa vymyslieť niečo univerzálnejšie, ale skončím s chybou. Nahrávka makra funguje a ja neviem prísť na to ako chyba vzniká. Chyba je priložená.
Vďaka za každý nápad.

Zaslat odpověď >

---

elninoslov(3.12.2021 0:03)#051625

No nie je priložená ...
Treba makro ukázať.

EDIT:
Ak sa jedná o nahrávku makra importu súboru (tá staršia verzia), tak tam nastáva presne popisovaná situácia. Pri nahrávaní makra to urobí OK, ale nahrané makro hodí chybu na riadku
.CommandType = 0Zmažte ho, a je po ptákách.citovat

Denis(3.12.2021 17:39)#051632

Prisahal by som, že som súbor prikladal

Příloha: 51632_triedenie.rar (34kB, staženo 9x)

citovat

elninoslov(3.12.2021 19:13)#051634

Problém je Key:=Range(). Tam nemôžete dávať všetky stĺpce, ale iba stĺpec A, veď podľa neho chcete radiť.
Úprava aj iných častí:
Sub Uprava_exportu()
Dim Riadkov As Integer
Dim Oblast As Range
'
'upravuje export z georga rovno do excelu
'tu sa upraví podľa potreby a toto sa prenesie do zošita môj dom xxxx
'+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+

With ActiveWorkbook.ActiveSheet
'Počet obsadených riadkov
Riadkov = .Cells(.Rows.Count, 1).End(xlUp).Row - 1
If Riadkov = 0 Then MsgBox "Žiadne dáta.", vbExclamation: Exit Sub

'Prehádže a vymaže stĺpce tak, aby zodpovedali hlavičke v liste "hosp"

'Vloží hlavičku podľa hosp
.Range("A1:J1").Value = Array("Dátum", "účet", "Text z výpisu", "Názov protiúčtu z výpisu", "Protiúčet z výpisu", "VS", "Popis z výpisu", "analytika", "Užívateľ / môj popis", "")

'-------- Triedenie ------------
'od 1. do 31.
'určíme oblasť triedenia
Set Oblast = .Cells(2, 1).Resize(Riadkov, 9)

.Sort.SortFields.Clear
.Sort.SortFields.Add2 Key:=Oblast.Columns(1), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
With .Sort
.SetRange Oblast '(oblast)
.Header = xlNo
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
End With
'**** KUF ******************************

End Sub

Příloha: 51634_triedenie.zip (26kB, staženo 11x)

citovat

Denis(3.12.2021 20:33)#051635

Radosť čítať, keď tomu niekto rozumie. ďakujem za pomoc.citovat

Uživatelské menu

Nejste přihlášen(a)

• přihlásit
• registrace

\n

Menu

On-line nástroje

Formulář Faktura

Aktivní diskuse