megoldást keresek erre a problémára
-
#2133
Az inputboxban a hónapot kéred be dátum formában. Csakhogy ez szám, nem dátum.
Ezt írod:
Range("A1").Select
Selection.Formula = "Dátum"
Helyette éppen elég (és a Selection elhagyása gyorsít is a programon) Range("A1")="Dátum"
A második kérdésedre:
Dim usor As Long
usor = Range("E" & Rows.Count).End(xlUp).Row
Range("E" & usor + 1) = "=SUM(E1:E" & usor & ")"