MS Excel

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

marjankaj(7.10.2021 15:54)#051309

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 Subcitovat

kabaka(7.10.2021 15:58)#051310

marjankaj napsal/a:

kabaka napsal/a:

Teraz to funguje ok.

Súbor s upraveným makrom.

Příloha: zip

51310_prva-prazdna-bunka.zip (14kB, staženo 13x)

citovat

elninoslov(8.10.2021 13:48)#051315

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 Subcitovat

kabaka(8.10.2021 14:22)#051316

Implementovala som do súboru aj makro od Elninoslova.
Sú tam obidva makrá.

Příloha: zip

51316_51310_prva-prazdna-bunka.zip (14kB, staženo 10x)

citovat

Strana: « předchozí 1 2

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

Uživatelské menu

Menu

Formulář Faktura

Formulář Faktura IV

Helios iNuvio

On-line nástroje