Zavrieť
Upraviť
Hlavné
- Auto Moto [x]
- Cestovanie [x]
- Deti [x]
- Domácnosť [x]
- Elektronika [x]
- Foto [x]
- Hoby [x]
- Hudba [x]
- Iné [x]
- Kaviareň Porady [x]
- Kultúra [x]
- Mobily a Tablety [x]
- Móda [x]
- Mzdy a personalistika [x]
- Neziskové organizácie [x]
- Počítače [x]
- Podnikanie [x]
- Porada (o stránke Porada) [x]
- Právo [x]
- Recenzie [x]
- Recepty [x]
- Software [x]
- Stavba [x]
- Šport [x]
- Účtovníctvo a dane [x]
- Vzdelávanie [x]
- Záhrada [x]
- Zdravie [x]
- Zvieratá [x]
Otázku
Pravidlá
Položte novú otázku, ak:
- Potrebujete odpoveď (na diskusiu slúžia Debaty).
- Ste nenašli odpoveď cez vyhľadávanie
Tip
Pravidlá a tipy
Vaše rady, tipy a vedomosti!
Tip môžete napísať stručne ale môže ísť aj o dlhší článok.
Ak chcete zdieľať cudzí článok, zdieľajte link.
Tip môžete napísať stručne ale môže ísť aj o dlhší článok.
Ak chcete zdieľať cudzí článok, zdieľajte link.
Zdieľaj link
Pravidlá a tipy
Zdieľajte s nami link na články z iných webov.
Komentáre k linku budú zoradené podľa počtu hlasov,
môžete využiť aj filter komentárov a zobraziť
len komentáre od členov ktorých na Porade sledujete.
Komentáre k linku budú zoradené podľa počtu hlasov,
môžete využiť aj filter komentárov a zobraziť
len komentáre od členov ktorých na Porade sledujete.
Sledovať
Definovanie neznámej oblasti makrom
Prikladám súbor z ktorého bude asi skôr jasné o čo mi ide.
Téma mi nejde editovať tak to riešim takto.
Ďakujem veľmi pekne.
V súbore je makierko ktoré samozrejme nefunguje.
Potrebujem aby makro za-definovalo oblasť A1 az J?.
Alebo, bolo by dobré keby makro vedelo určiť aj posledný vyplnený stĺpec a podla toho určilo oblasť A1 až..
Chcel by som ešte vložiť do stĺpca C vzorec B-A tam kde je v stĺpci B hodnota.
A celú oblasť potom orámovať jednoduchým orámovaním.
Vďaka všetkým čo si nájdu troška času
Téma mi nejde editovať tak to riešim takto.
Ďakujem veľmi pekne.
V súbore je makierko ktoré samozrejme nefunguje.
Potrebujem aby makro za-definovalo oblasť A1 az J?.
Alebo, bolo by dobré keby makro vedelo určiť aj posledný vyplnený stĺpec a podla toho určilo oblasť A1 až..
Chcel by som ešte vložiť do stĺpca C vzorec B-A tam kde je v stĺpci B hodnota.
A celú oblasť potom orámovať jednoduchým orámovaním.
Vďaka všetkým čo si nájdu troška času
Naposledy upravil sances : 17.03.17 at 07:41
-
skuska_oblast.xlsm
(15.4 KB, 5 videní)
- skuska_oblast.xlsm
(20.1 KB, 4 videní)
- Každý móže napísať len 1 odpoveď. Neskor mozete svoju odpoveď vylepšiť.
- Odpoveď má priniesť riešenie na otázku, vyvarujte sa hodnotenia otázky.
- Odpoveď má byť viac o faktoch ako o názoroch.
Ak potrebujete v otázke niečo upresniť, najskôr sa spýtajte na podrobnosti.
Koncept slúži na uloženie rozpracovanej odpovede, koncept sa zobrazuje len Vám, až kým ho nezverejníte.
Ak máte podobnú otázku, založte Novú otázku alebo Súvisiacu otázku.
Koncept slúži na uloženie rozpracovanej odpovede, koncept sa zobrazuje len Vám, až kým ho nezverejníte.
Ak máte podobnú otázku, založte Novú otázku alebo Súvisiacu otázku.
❤ Buďte priateľskí ❤
Sme súčasťou jednej komunity, ktorá si chce vzájomne pomáhať, rozdieľnosť je vítaná ak neubližuje!
Usporiadať podľa času
2 
Subor sa mi neda nahrat tak prikladam len makro. Z tvojho makra vymaz kod a vloz tento:
Sub POSLEDNY_RIADOK()
Dim lRow As Long
Dim lCol As Long
'Find the last non-blank cell in column A(1)
lRow = Cells(Rows.Count, 1).End(xlUp).Row
'Find the last non-blank cell in row 1
lCol = Cells(1, Columns.Count).End(xlToLeft).Column
MsgBox "Posledny riadok: " & lRow & vbNewLine & _
"Posledny stlpec: " & lCol
Range(Cells(1, 1), Cells(lRow, lCol)).Select
Worksheets(1).Range(Cells(1, 1), Cells(lRow, lCol)).Borders(xlEdgeTop).Color = RGB(255, 0, 0)
Worksheets(1).Range(Cells(1, 1), Cells(lRow, lCol)).Borders(xlEdgeBottom).Color = RGB(255, 0, 0)
Worksheets(1).Range(Cells(1, 1), Cells(lRow, lCol)).Borders(xlEdgeLeft).Color = RGB(255, 0, 0)
Worksheets(1).Range(Cells(1, 1), Cells(lRow, lCol)).Borders(xlEdgeRight).Color = RGB(255, 0, 0)
End Sub
Sub POSLEDNY_RIADOK()
Dim lRow As Long
Dim lCol As Long
'Find the last non-blank cell in column A(1)
lRow = Cells(Rows.Count, 1).End(xlUp).Row
'Find the last non-blank cell in row 1
lCol = Cells(1, Columns.Count).End(xlToLeft).Column
MsgBox "Posledny riadok: " & lRow & vbNewLine & _
"Posledny stlpec: " & lCol
Range(Cells(1, 1), Cells(lRow, lCol)).Select
Worksheets(1).Range(Cells(1, 1), Cells(lRow, lCol)).Borders(xlEdgeTop).Color = RGB(255, 0, 0)
Worksheets(1).Range(Cells(1, 1), Cells(lRow, lCol)).Borders(xlEdgeBottom).Color = RGB(255, 0, 0)
Worksheets(1).Range(Cells(1, 1), Cells(lRow, lCol)).Borders(xlEdgeLeft).Color = RGB(255, 0, 0)
Worksheets(1).Range(Cells(1, 1), Cells(lRow, lCol)).Borders(xlEdgeRight).Color = RGB(255, 0, 0)
End Sub
Hlasovalo 2 pouzivatelov
| Užitočné (2) | sances, nik28 |
3 komentáre - rozbaľ zbaliť
sances Ďakujem , veľmi pekne, jeden veľmi dobrý kamarát mi poradil použiť tiež "ActiveSheet.UsedRange.Select " z čoho som bol riadne vyšinutý... Netušil som že niečo také Excel obsahuje. Tvoje riešenie použijem, často potrebujem určovať posledné vyplnené riadky či stĺpce. Ešte keby sa našlo to riešenie pre stĺpček C. Tam kde je hodnota v stĺpci B tak aby odčítalo B - A. Skúsim dať novú prílohu. Má tam byť rozdiel časov v minútach.
Ešte raz ďakujem veľmi pekne.
Ešte raz ďakujem veľmi pekne.
frenkacik dal by som tam vzorec ktory uz mac v stlpci C. Ale urobil by som ho s podmienkou, ze ak hodnota v stlpci A a B nie je nulova tak urobi vypocet (rozdiel casov).
Definovanie neznámej oblasti makrom
Vieš, kto pozná odpoveď?
Porady, ktoré by vás mohli zaujímať
Prihláste sa a sledujte len tie Porady, ktoré Vás zaujímajú.32
Podobné témy
- Príspevkov: 27, Posledný príspevok: 27.06.17
- Príspevkov: 2, Posledný príspevok: 08.11.15
- Príspevkov: 2, Posledný príspevok: 11.07.05
- Príspevkov: 1, Posledný príspevok: 14.03.05
- Príspevkov: 0, Posledný príspevok: 09.03.05
Odpovedáte na otázku?
Zoznámte sa s novými pravidlami.Áno, poznám odpoveď.
Každý môže napísať 1 odpoveď, neskôr ju môže vylepšiť. Pokračovať v odpovedi
Nie, chcem sa ešte spýtať na upresnenie otázky.
Upresnenie si vyžiadajte v komentári otázky (nájdete pod otázkou). Vyžiadať upresnenie
Copyright © PORADA.sk, s.r.o. - žiadna časť stránky nemôže byť rozširovaná, alebo reprodukovaná bez predchádzajúceho súhlasu
