[Defender]

Mam taki kod:

Sub makro1()

Dim LR As Long

LR = Cells(Rows.Count, ActiveCell.Column).End(xlUp).Row - 1

ActiveCell.FormulaR1C1 = "=SUBTOTAL(3,R[2]C:R[" & LR & "]C)"

End Sub
Odnosi się on do zawsze aktywnej (zaznaczonej) komórki. Chcę go przypisać "na sztywno" np do komórki A1. Czy możecie mi pomóc? Niestety, dopiero zaczynam zabawę z #vba i jestem na etapie drogi na kolanach przez pole minowe. XD


#excel #vba #programowanie

[DwaNiedzwiedzie]

@Defender: Jeżeli makro ma działać na dowolnym aktywnym arkuszu, zamień ActiveCell na Range("A1") (lub w skróconej formie na [A1]). Jeśli chcesz, żeby działało tylko na jakimś konkretnym, użyj Sheets("nazwa akrusza").Range("A1") lub ['nazwa arkusza'!A1].

[Defender]

@DwaNiedzwiedzie: Po naniesieniu zmian dostaję błąd. Problemem jest chyba określenie zmiennej?

[Defender]

@DwaNiedzwiedzie: Nie ma tematu! Już poprawiłem. Serdeczne dzięki za pomoc. :-)

Prawidłowy kod:

Sub makro1()

Dim LR