• Úvod
• Excel návod
• Excel šablony
• Nástěnka
• Mobility
• Tipy na výlet
• Galerie
• Fórum

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: 43708_pokus.rar (27kB, staženo 13x)

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)

• přihlásit
• registrace

\n

Menu

On-line nástroje

Formulář Faktura

Aktivní diskuse