< návrat zpět

MS Excel


Téma: Dosazení textu na první prázdné místo v řádku rss

Zaslal/a 6.10.2021 12:47

Všechny vás zdravím, měl bych prosbu. V excelu moc neumím a potřeboval bych nějak jednoduše hromadně dosadit určitý text na první prázdnou buňku každého řádku. Doposud to dělám tak, že postupně vybírám první prázdné místo ručně a do toho výběru pak vložím text. Určitě je i jednodušší řešení, poradíte mi prosím? Moc děkuji za ochotu

Zaslat odpověď >

Strana:  « předchozí  1 2
#051309
avatar

kabaka napsal/a:


Keď označí celý prvý stĺpec a aplikuje makro tak sa text vloží do celého stĺpca B, to znamená, že aj vtedy, keď nie je bunka vyplnená.

Sub Makro1()
For Each bunka In Selection
If bunka = "" Then Exit Sub
bunka.Offset(, 1000).End(xlToLeft).Offset(, 1) = "tvoj text"
Next bunka
End Sub
citovat
#051310
kabaka

marjankaj napsal/a:

kabaka napsal/a:


Teraz to funguje ok.

Súbor s upraveným makrom.
Příloha: zip51310_prva-prazdna-bunka.zip (14kB, staženo 5x)
citovat
#051315
elninoslov
V tomto prípade je fuk, na ktorom stojíte liste, a aká oblasť je označená. Zistí si to samé podľa stĺpca A pokiaľ je vyplnené, a pre každý riadok určí koniec. Hodnoty zapíše naraz - rýchlejšie.
Sub vloztextdoprvejprazdnejbunky2()
Dim Bunka As Range, RNG As Range
For Each Bunka In Range(Hárok5.Cells(Rows.Count, "A").End(xlUp), Hárok5.Range("A1")).Cells
If Bunka <> "" Then
Set Bunka = Bunka.EntireRow.Cells(Columns.Count).End(xlToLeft).Offset(, 1)
If RNG Is Nothing Then Set RNG = Bunka Else Set RNG = Union(RNG, Bunka)
End If
Next Bunka
If Not RNG Is Nothing Then RNG.Value = "tvoj text"
End Sub
citovat
#051316
kabaka
Implementovala som do súboru aj makro od Elninoslova.
Sú tam obidva makrá.
Příloha: zip51316_51310_prva-prazdna-bunka.zip (14kB, staženo 2x)
citovat

Strana:  « předchozí  1 2

Uživatelské menu

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

Menu

On-line nástroje

Formulář Faktura

Formulář Faktura IV

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

Aktivní diskuse

Kombinace bez opakování – výpis

elninoslov • 4.12. 2:35

Chyba pri triedení

Denis • 3.12. 20:33

Chyba pri triedení

elninoslov • 3.12. 19:13

Chybné řazení ve filtrované oblasti

elninoslov • 3.12. 18:58

Chyba pri triedení

Denis • 3.12. 17:39

Chybné řazení ve filtrované oblasti

B3rsiCZ • 3.12. 15:56

Chybné řazení ve filtrované oblasti

B3rsiCZ • 3.12. 15:55