< návrat zpět

MS Excel


Téma: Kopírovanie textu do neprázdnej bunky rss

Zaslal/a 16.5.2017 10:22

kabakaKopí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"

Příloha: xls36348_makro.xls (18kB, staženo 5x)
Zaslat odpověď >

Strana:  1 2 3   další »
#036350
avatar
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
#036351
kabaka

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: xls36351_makro.xls (19kB, staženo 6x)
citovat
#036352
avatar
???
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 Sub
citovat
#036353
kabaka

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: xls36353_makro.xls (33kB, staženo 3x)
citovat
#036354
avatar
@elninoslov
A načo tam máš dvakrát toto?

Application.ScreenUpdating = Truecitovat
#036355
avatar
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: xls36355_36353_makro-3.xls (44kB, staženo 7x)
citovat
#036356
kabaka

elninoslov napsal/a:

Použil som teraz inú metódu (trošku rýchlejšiu).
Ďakujem veľmi pekne. Funguje to super.citovat
#036362
kabaka
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: txt36362_operacie_2017-05-17.txt (7kB, staženo 10x)
citovat
#036365
kabaka
priložené obrázky - sprievodca importom
Příloha: rar36365_obrazky.rar (181kB, staženo 3x)
citovat
#036366
avatar
Je to tady prdel :-Dcitovat

Strana:  1 2 3   další »

Uživatelské menu

Nejste přihlášen(a)
avatar\n

Menu

On-line nástroje

Formulář Faktura

Formulář Faktura III

Oblíbený formulář Faktura byl vylepšen a rozšířen. Formulář faktura III
Více se dočtete zde.

Aktivní diskuse