Cześć wszystkim,
Czy ktoś wie jak można wprowadzić do komórek od B1 do B40 kolejne liczby od 40 do 1.
Dziękuje
0
0
Pewnie można na kilka sposobów, jeden z nich:
Dim i As Integer
Dim sh As Object
Set sh = Application.ActiveSheet
For i = 0 To 39
sh.Cells(i + 1, 2).Value = 40 - i
Next
0
Działa super
Dzięki wielkie