[Pejxon]

#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 w dół i w prawo do pierwszej pustej komórki.

[KwasneJablko]

@Pejxon:

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

[Pejxon]

Niestety przez ostatni "Offset(0,1)"zaznaczenie nie idzie do pierwszej pustej komórki, tylko przesuwa się o 2 komórki w prawo.

[Pejxon]

@KwasneJablko: Ponieważ pierwsza pusta komórka nie zawsze znajduje się w pierwszej kolumnie po prawej stronie

[KwasneJablko]

@Pejxon: wklej zdjecie bo tak to nic z tego nie bedzie

Edit: ide do biedry. wroce za 20 min

[Pejxon]

@KwasneJablko:

Tak wygląda plik przed uruchomieniem makra, jak widzisz nie wszystkie wiersze mają tyle samo wypełnionych kolumn.

[Pejxon]

@KwasneJablko:

Tutaj po uruchomieniu makra z buttona "szukaj" zależy mi na tym aby makro zatrzymało sie na ostatniej pustej komórce wiersza, nie zawsze to jest pierwsza od prawej.

[androx19]

Application.SendKeys "{down}"

@Pejxon: a po co Ci ta komenda (strzałka w dół)?

[Pejxon]

@androx19:
Chodzi o to żeby chodził po filtrowanych komórkach a nie po tych w tle.

[KwasneJablko]

@Pejxon: a wez zoabcz to. u mnie dziala. tylko nic tam nie filtruj. czy bradzo chcesz uzywac tych filtrow?

Sub wykop2()

Dim szukaj As Range
Dim cell As Long
Dim lastcell As Long

lastcell = Cells(Rows.Count, 1).End(xlUp).Row

cell = Range("A2").Value

Set szukaj = Range("A4:A" & lastcell).Find(cell)

szukaj.End(xlToRight).Offset(0, 1).Activate

End Sub

[Pejxon]

@KwasneJablko:
Filtrowanie jest ważne, pracuje skanerem i musi pokazywać tylko jeden wiersz i zaznaczyć pierwsza wolna jego komórkę.

[KwasneJablko]

@Pejxon: no dobra to przefiltruj, a potem uruchom to macro co ci wrzucilem. dziala?

[Pejxon]

Wywala mi błędną ostatnią linijkę, którą wysłałeś.