Samozrejme to jde, nicmene, pokud bych vam ted popsal, jak bych to udelal ja, popsal bych dve stranky a moudry byste z toho nebyl, takze doporucuji VZDY VLOZIT SOUBOR!!!citovat
excel, návod, tipy, funkce, makra, vba, tabulky, šablony
Váš průvodce programem Microsoft Excel a programováním maker ve VBA
< návrat zpět
Téma: Přesun označeného řádku v seznamu nahoru a dolů
Uzamčeno - nelze přidávat nové příspěvky.
MS Excel
Téma: Přesun označeného řádku v seznamu nahoru a dolů 
Zaslal/a Kovarik 12.4.2012 22:40
Dobrý den,
mám vytvořený formulář ve VB, jehož data se ukládají do Excelu. Do tohoto formuláře bych chtěl vložit funkci, která by po vybrání jednoho určitého řádku v Excelu s tímto řádkem a jeho daty posouvala nahoru a dolů mezi ostatními řádky a na vybranou pozici by data, která vybraný řádek obsahuje, vložila. Ostatní řádky by se posunuly dolů.
Předem děkuji za případnou odpověď.
Uzamčeno - nelze přidávat nové příspěvky.Přikládám soubor. Jsem ve VB nováčkem a s tímto si opravdu nevím rady. Děkuji.
Příloha: 
8028_formular.rar (24kB, staženo 23x)
citovat8028_formular.rar (24kB, staženo 23x)Private Sub Dolu_Click()
Selection.EntireRow.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
Call CB1_Click
End Sub
Private Sub Nahoru_Click()
Selection.EntireRow.Delete Shift:=xlUp
End Subcitovat
Selection.EntireRow.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
Call CB1_Click
End Sub
Private Sub Nahoru_Click()
Selection.EntireRow.Delete Shift:=xlUp
End Subcitovat
Děkuji za kód, ovšem toto už jsem zkoušel. Potřebuji, aby se řádky posouvali s již dříve vloženými daty. Např. označím řádek 5 a posunu ho i s vepsanými daty na řádek 9.citovat
Tak asi si chcel takéto niečo.
Je to trochu také neučesané, ale snáď to bude stačiť.
Private Sub Nahoru_Click()
Cells(Selection.Row, 1).Select
Selection.Offset(-1, 0).EntireRow.Insert Shift:=xlUp, CopyOrigin:=xlFormatFromLeftOrAbove
Selection.Offset(1, 0).EntireRow.Copy Selection.Offset(-1, 0)
Selection.Offset(1, 0).EntireRow.Delete Shift:=xlUp
Selection.Offset(-1, 0).Select
End Sub
Private Sub Dolu_Click()
Cells(Selection.Row, 1).Select
Selection.Offset(2, 0).EntireRow.Insert Shift:=xlUp, CopyOrigin:=xlFormatFromLeftOrAbove
Selection.EntireRow.Copy Selection.Offset(2, 0)
Selection.EntireRow.Delete Shift:=xlUp
Selection.Offset(1, 0).Select
End Subcitovat
Je to trochu také neučesané, ale snáď to bude stačiť.
Private Sub Nahoru_Click()
Cells(Selection.Row, 1).Select
Selection.Offset(-1, 0).EntireRow.Insert Shift:=xlUp, CopyOrigin:=xlFormatFromLeftOrAbove
Selection.Offset(1, 0).EntireRow.Copy Selection.Offset(-1, 0)
Selection.Offset(1, 0).EntireRow.Delete Shift:=xlUp
Selection.Offset(-1, 0).Select
End Sub
Private Sub Dolu_Click()
Cells(Selection.Row, 1).Select
Selection.Offset(2, 0).EntireRow.Insert Shift:=xlUp, CopyOrigin:=xlFormatFromLeftOrAbove
Selection.EntireRow.Copy Selection.Offset(2, 0)
Selection.EntireRow.Delete Shift:=xlUp
Selection.Offset(1, 0).Select
End Subcitovat
Uživatelské menu
Nejste přihlášen(a)
\n
\nMenu
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.
RSS nejnovější články