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

Příloha: rar

43708_pokus.rar (27kB, staženo 14x)

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 IV

Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.

Helios iNuvio

Používáte podnikový systém Helios iNuvio? Potřebujete pomoci se správou nebo vyvinout SQL proceduru? Více informací naleznete na stránce Helios iNuvio.