#vba #programowanie #excel #makro
[VBA]
Witam, proszę o pomoc w poniższym. Mam makro, którego zadaniem jest ustawianie się w odpowiednich komórkach po wykonaniu czynności. Problem, z którym się borykam to linijka kodu odpowiadająca za szukanie pierwszej wolnej komórki w aktywnym wierszu. Poniżej mój kod:
Range("A2").Select
Application.SendKeys "{down}"
Range("A2").Offset(4, 0).Activate
Poniższa linijka nie wykonuje się oraz nie pokazuje błędu.
Range(ActiveCell, ActiveCell.End(xlToRight)).Select
Co robię źle?
Chodzi o przejście od komórki A2 - 4 wiersze
[VBA]
Witam, proszę o pomoc w poniższym. Mam makro, którego zadaniem jest ustawianie się w odpowiednich komórkach po wykonaniu czynności. Problem, z którym się borykam to linijka kodu odpowiadająca za szukanie pierwszej wolnej komórki w aktywnym wierszu. Poniżej mój kod:
Range("A2").Select
Application.SendKeys "{down}"
Range("A2").Offset(4, 0).Activate
Poniższa linijka nie wykonuje się oraz nie pokazuje błędu.
Range(ActiveCell, ActiveCell.End(xlToRight)).Select
Co robię źle?
Chodzi o przejście od komórki A2 - 4 wiersze
@Pejxon:
podzielilem ci to na dwie czesci. Pierwsza idzie 4 w komorki w dol, tak jak chciales.
Druga czesc przesuwa cie w prawo do pierwszej wolnej komorki.
Calos mozna by jednak nawet w jednym ciagu napisac o tak
Sub wykop()
Range("A2").Offset(4, 0).Activate
ActiveCell.End(xlToRight).Offset(0, 1).Activate
End Sub
podzielilem ci to na dwie czesci. Pierwsza idzie 4 w komorki w dol, tak jak chciales.
Druga czesc przesuwa cie w prawo do pierwszej wolnej komorki.
Calos mozna by jednak nawet w jednym ciagu napisac o tak
Range("A2").Offset(4, 0).End(xlToRight).Offset(0, 1).Activate
@KwasneJablko: Ponieważ pierwsza pusta komórka nie zawsze znajduje się w pierwszej kolumnie po prawej stronie
#koronawirus #test #covid19