MS Excel

Téma: Automatické posunutí pole

Zaslal/a Rayzou 9.4.2014 20:24

Zdravím, mám problém, mám tabulku, kde průběžně přidávám hodnoty viz odkaz: http://vvcap.net/db/Phr9A1JdgDgGimDUzrfG.htp

Vzhledem k tomu, že hodnoty přibývají nepravidelně a nezáleží mi na pořadí hodnot, tak bych potřeboval asi nějaké makro které by mi ulehčilo práci. Nevím zda to jde ale představuji si to takto: Mít jeden řádek volný, a pokaždé když do něj vložím údaj tak se ten údaj automaticky přesune buď na konec sloupce nebo o řádek níže a vše co bylo pod tímto novým údajem se automaticky posune dolů( přijde mi tato varianta jednodušší) Děkuji mnohokrát za pomoc

Zaslat odpověď >

Pavlus(9.4.2014 21:44)#018775

Jedna z možností...
Udělat si událost listu a testovat určitou buňku, zda je vyplněna, v kladném případě vložit řádek.
P.

Ukázka:Private Sub Worksheet_Change(ByVal Target As Range)
Dim puvodni_pozice As String

puvodni_pozice = ActiveCell.Address

If Range("A1").Value <> "" Then
Rows("1:1").Select
Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
End If

Range(puvodni_pozice).Select

End Subcitovat

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.