Riadok v Exceli bude odvodený z aktívnej bunky (je jedno, v ktorom stĺpci sa bude nachádzať aktívna bunka).
Po spustení makro prejde všetkými vyplnenými bunkami riadka, v ktorom sa nachádza aktívna bunka, od prvej po poslednú.
Podmienkou je, že musí ísť o celistvú oblasť, t.j. medzi prvou a poslednou bunkou riadka s aktívnou bunkou sa nesmie vyskytnúť prázdna bunka, inak makro prejde len po prvú prázdnu bunku.
Kvôli rýchlemu opätovnému spusteniu makra pri zmene riadka by som napr. do bunky A1 vložil spúšťacie tlačidlo, alebo makro spúšťal pridelenou klávesovou skratkou.
Je úplne jedno, v ktorom riadku Ti začínajú údaje.
Prvá napĺňaná hodnota každého riadka sa odoberá zo stĺpca "A".
Sub ConsCopy()
Riad = ActiveCell.Row
Stlp = Range("A" & Riad).End(xlToRight).Column
If Range("A" & Riad) = "" Then
MsgBox "Nekorektný riadok", vbCritical
Exit Sub
End If
For i = 0 To Stlp - 1
Range("A" & Riad).Offset(0, i).Copy
MsgBox "Obsah Clipboard-u : " & Range("A" & Riad).Offset(0, i), vbInformation
Next i
Application.CutCopyMode = False
MsgBox "Koniec riadka", vbExclamation
End Sub
P.S. Nemusíš klikať na "OK" MsgBoxu, stačí stláčať Enter, avšak Enter nahrádza stlačenie OK len ak je aktívny Excel, takže je to asi za jedno...
Vyber si, čo Ti viac vyhovuje:
aktivovať Excel a kliknúť na OK alebo
aktivovať Excel a stlačiť Enter...