MS Excel

Téma: Jak zadefinovat promeny RANGE..

Zaslal/a Merlin99 10.7.2019 10:58

Zdravim všechny.. snazim se zadefinovat pohyblivi RANGE ale za boha se mi nedari sestavit sintaxi. Presto ze mam všechny potrebny bunky definovany? netusi někdo?

Sub NAJIT()
'
' najit Makro

Dim MALED As Long
Dim Sradek
Dim Kradek
Dim Temp As Range

Sradek = List1.Cells.Find("Material").Offset(1, 0).Address(False, False) 'List1 E8 start RANGE (False, False)znici $ z adresy
MALED = List1.Cells.Find("Material").Column 'List1 5 sloupec
Kradek = List1.Cells(Rows.Count, MALED).End(xlUp).Address(False, False) 'List1 E11 konec RANGE

Sheets("List1").Select

'Jak nahradit E8 = Sradek, E11 = K radek, do Range níže...
Range("E8:E11").Select
'*********************************************************

Selection.Copy
Sheets("SUM").Select
Range("D5").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
Range("D4").Select

End Sub

Zaslat odpověď >

Rejpal(10.7.2019 13:15)#043711

Zdravím snad takto:
List1.Range(Sradek & ":" & Kradek).Copycitovat

Merlin99(10.7.2019 13:18)#043712

Rejpal DÍKY moc zkousel jsem snad všechny kombinace uvozovek atd ale tuhle ne. Díky moc funguje.citovat

Uživatelské menu

Nejste přihlášen(a)

Formulář Faktura

Formulář Faktura V

Nová verze. Formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.

Helios iNuvio