MS Excel

Téma: Vyčítání dat z x listů

Zaslal/a enrico 10.2.2011 20:26

Vážení, potřeboval bych pomoci, mám soubor který má x listů počet se může lišit, potřeboval bych z těchto listů vyčít vždy tři hodnoty které jsou na každém listě ve stejné buňce a vypsat je do nového listu na konci.

Pomohl by mě někdo?

Děkuji

Zaslat odpověď >

Poki(10.2.2011 23:00)#004070

takto:Sub kopiruj()
Dim BUNKA As String
Dim Radek As Long
BUNKA = "A1"
Worksheets.Add After:=Worksheets(Worksheets.Count)
For i = 1 To Worksheets.Count - 1
If Len(Worksheets(Worksheets.Count).Cells(1, 1).Value) = 0 Then
Radek = 1
Else
Radek = Worksheets(Worksheets.Count).Cells(65000, 1).End(xlUp).Row + 1
End If
Worksheets(Worksheets.Count).Cells(Radek, 1) = Worksheets(i).Range(BUNKA).Value
Next i
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.