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

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.

---

Poki(13.4.2012 9:28)#008015

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

Kovarik(13.4.2012 23:58)#008028

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)

citovat

marjankaj(14.4.2012 0:38)#008029

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

Kovarik(15.4.2012 16:20)#008067

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

marjankaj(15.4.2012 19:54)#008082

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

Kovarik(15.4.2012 22:16)#008093

To je přesně ono, moc děkuji a přeji hezký den.citovat

Uživatelské menu

Nejste přihlášen(a)

• přihlásit
• registrace

\n

Menu

On-line nástroje

Formulář Faktura

Aktivní diskuse