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

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)

• přihlásit
• registrace

\n

Menu

On-line nástroje

Formulář Faktura

Aktivní diskuse