Aktywne Wpisy
sing +431
witam
kiedy ten mem przestanie być aktualny?
#kierowcy #prawojazdy #humorobrazkowy #heheszki #przepisydrogowe
kiedy ten mem przestanie być aktualny?
#kierowcy #prawojazdy #humorobrazkowy #heheszki #przepisydrogowe
TheTostu +340
Jak jedziemy z historyjkami o nieogarnianiu rzeczywistości przez ludzi 40+, to moja ulubiona rozmowa była z wujkiem z Podlasia
Jak mu powiedziałem, że pracuje zdalnie i cały proces rekrutacyjny odbyłem zdalnie to powiedział, że głupi jestem, bo jeśli nigdy nie widziałem szefa na oczy, to on mi po prostu pensji nie wypłaci i nawet nie będę miał kogo do sądu zgłosić. Przecież w internecie można łatwo oszukać i udawać, że się jest
Jak mu powiedziałem, że pracuje zdalnie i cały proces rekrutacyjny odbyłem zdalnie to powiedział, że głupi jestem, bo jeśli nigdy nie widziałem szefa na oczy, to on mi po prostu pensji nie wypłaci i nawet nie będę miał kogo do sądu zgłosić. Przecież w internecie można łatwo oszukać i udawać, że się jest
Aktywne Znaleziska
Teraz chciałbym wykonać AutoFill w zakresie od np. B100 do B135 z tym, że właśnie ten końcowy zakres jest zmienny. Jak można to zapisać aby było poprawnie?
Dim rng As Range
Dim a As Integer
a = (Worksheets("krok1").Range("F8").Value) - (Worksheets("krok1").Range("F7").Value)
Set rng = Range("B100:B(100+a)") ???????????? wiem że to głupie ale już nie miałęm pomysłu
ActiveCell.FormulaR1C1 = "=CONCATENATE(R3C2,"":"",R7C6)"
Selection.Copy
Range("B100").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("B100").Select
Application.CutCopyMode = False
Selection.AutoFill Destination:=Range(rng), Type:=xlFillDefault
ActiveWindow.SmallScroll Down:=0
End Sub
#vba #programowanie #excel
Set rng = Range("B100:B" & (100 + a))lub
Set rng = Range("B100").Resize(a + 1)@nevill:
36
Selection.AutoFill Destination:=Range("rng"), Type:=xlFillDefault
w tej końcówce jeszcze mam jakiś błąd.. method Range of object _global failed
wiesz o co może chodzić?
@nevill: po prostu rng jeżeli się odwołujesz do zakresu który już jest przypisany do zmiennej. Opcjonalnie:
Selection.AutoFill Destination:=Range("B100:B" & (100 + a)), Type:=xlFillDefaultSelection.AutoFill Destination:=Range("B100:B" & (100 + a)), Type:=xlFillSeries wcale nie wypełnia mi komórek seriami, tylko kopiami pierwszej. Przez jakiś czas było wporządku i nagle się spieprzyło... Nie wiem #!$%@? - czy w tym excelu da się ustawić fabrycznie AutoFill na serie? Może to zależy od formatu komórek?