MS Excel

Kopírovanie textu do neprázdnej bunky nie je problém. Problém nastáva pri bunke, kde je text.
Neviem dopredu koľko riadkov bude mať výsledná tabuľka.

DOPLNENIE - VYRIEŠENÉ

Potrebujem aby celý stĺpec O obsahoval text - Začiatok hod., Koniec hod.. Aj v prázdnej bunke bez textu, v bunke, kde už nejaký text je. Napr. dodatok, preklad, služba, príslužba. Tabuľka obsahuje hlavičku.(prvé dva riadky Posledný stĺpec O sa volá Poznámka

DOPLNENIE-VYRIEŠENÉ
Mám ešte jeden problém. Ako uchovať makro? (excel 2003)
Vložila som ho ako šablónu tak (do XLSTART), aby bolo aktívne v každom zošite, ktorý sa otvorí. To je v poriadku.

Neuchová sa však pri exporte a importe.
Tento súbor je totiž exportovaný z intranetu ako textový dokument a následne importovaný do excelu.

DOPLNENE
Moja chyba - makro som neuložila do "zošitu osobních maker"

Zaslat odpověď >

Strana: 1 2 3 4 další »

elninoslov(16.5.2017 10:28)#036350

Toto skúste popísať inak, pretože ja osobne nemám ani páru, čo konkrétne Vám nejde, a čo vlastne potrebujete urobiť...citovat

kabaka(16.5.2017 10:32)#036351

elninoslov napsal/a:

Toto skúste popísať inak, pretože ja osobne nemám ani páru, čo konkrétne Vám nejde, a čo vlastne potrebujete urobiť...

Potrebujem aby celý stĺpec O obsahoval text - Začiatok, Koniec. Aj v prázdnej bunke bez textu, v bunke, kde už nejaký text je. Napr. dodatok, preklad, služba, príslužba.

Pridám ešte jeden súbor, menšia úprava.

Příloha: xls

36351_makro.xls (19kB, staženo 29x)

citovat

elninoslov(16.5.2017 11:16)#036352

???
Sub VlozText()
Dim Riadkov As Long, Bunka As Range, HDN, Dlzka As Long, Text As String * 15
Text = "Začiatok" & Chr(10) & "Koniec"

Application.ScreenUpdating = False

With Worksheets("makro")
Riadkov = .Cells(Rows.Count, 1).End(xlUp).Row
If Riadkov = 1 And .Cells(1, 1) = "" Then Exit Sub

For Each Bunka In .Columns("O").Resize(Riadkov).Cells
With Bunka
HDN = .Value2
Dlzka = Len(HDN)
.Value2 = IIf(Dlzka = 0, vbNullString, HDN & Chr(10)) & Text
.Characters(Dlzka + IIf(Dlzka = 0, 1, 2), 15).Font.Bold = True
.Characters(Dlzka + IIf(Dlzka = 0, 10, 11), 6).Font.Color = -65281
End With
Next Bunka
End With
Set Bunka = Nothing

Application.ScreenUpdating = True
End Subcitovat

kabaka(16.5.2017 11:49)#036353

elninoslov napsal/a:

???
Sub VlozText()

Výborne, ďakujem funguje. Ešte by som mohla poprosiť drobnú úpravu? Zabudla som totiž na hlavičku.(prvé dva riadky)Ešte by to šlo prerobiť na Začiatok hod. a Koniec hod.? Posledný stĺpec O sa volá Poznámka.

Ďakujem

Příloha: xls

36353_makro.xls (33kB, staženo 26x)

citovat

marjankaj(16.5.2017 12:06)#036354

@elninoslov
A načo tam máš dvakrát toto?

Application.ScreenUpdating = Truecitovat

elninoslov(16.5.2017 12:15)#036355

Použil som teraz inú metódu (trošku rýchlejšiu). Ak by malo byť tých riadkov naozaj veľa, tak ma napadá ešte najskôr cez SpecialCells poriešiť hromadne prázdne bunky a následne cez pole (tak ako teraz), zaplnené aby sa to zase trošku zrýchlilo.

EDIT: marjankaj, sry hrubka, samozrejme prvé má byť False - opravené

Příloha: xls

36355_36353_makro-3.xls (44kB, staženo 30x)

citovat

kabaka(16.5.2017 12:29)#036356

elninoslov napsal/a:

Použil som teraz inú metódu (trošku rýchlejšiu).

Ďakujem veľmi pekne. Funguje to super.citovat

kabaka(16.5.2017 14:18)#036362

Mám ešte jeden problém. Ako uchovať makro?
Vložila som ho ako šablónu tak, aby bolo aktívne v každom zošite, ktorý sa otvorí. To je v poriadku.

Neuchová sa však pri exporte a importe.

Tento súbor je totiž exportovaný z intranetu ako textový dokument a následne importovaný do excelu.

V takomto tvare je pôvodný názov súboru, ktorý sa exportuje a následne importuje. operacie_2017-05-17

Keď som chcela použiť makro, tak sa tam nenachádzalo.

sprievodca importom: oddelené - 65001:Unicode (UTF-8) - iné ľavý alt 124

Prikladám zdroj-originál-textový dokument (upravený)

Příloha: txt