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

MS Excel

Téma: kopírování z tabulky do formuláře

Zaslal/a husita 24.1.2014 12:43

Ahoj všichni, potřeboval bych poradit s vymyšlením vzorce nebo makra, které by mi postupně naplnilo tabulku prehled daty z tabulky evidence.
Díky za radu

Příloha: 17458_sesit3.zip (99kB, staženo 20x)

Zaslat odpověď >

---

cmuch(24.1.2014 18:20)#017463

Do Prehledu natáhne vše z Evidence.
Osobně bych zrušil to vlastní formátování buňek a vše psal makrem.

Vlož do modulu listu Evidence

Sub PrevodDoEvidence()

Dim radek As Integer, radekshPrehled As Integer
Dim shPrehled As Object

Set shPrehled = Sheets("PREHLED")
radekshPrehled = 3

For radek = 4 To Cells(Rows.Count, 1).End(xlUp).Row

shPrehled.Cells(radekshPrehled, "A") = Cells(radek, "A")
shPrehled.Cells(radekshPrehled + 1, "A") = Cells(radek, "U")
shPrehled.Cells(radekshPrehled + 2, "A") = Cells(radek, "V")

shPrehled.Cells(radekshPrehled, "C") = Cells(radek, "B")
shPrehled.Cells(radekshPrehled + 1, "C") = Cells(radek, "N") & ", " & Cells(radek, "O")
shPrehled.Cells(radekshPrehled + 2, "C") = Cells(radek, "I")

shPrehled.Cells(radekshPrehled, "E") = Cells(radek, "CT")
shPrehled.Cells(radekshPrehled + 1, "E") = "ODPRACOVAL:" 'nevim zda je potreba vzorce
shPrehled.Cells(radekshPrehled + 1, "F") = Cells(radek, "Q")
shPrehled.Cells(radekshPrehled + 2, "F") = Cells(radek, "R")

shPrehled.Cells(radekshPrehled, "G") = Cells(radek, "AG")
shPrehled.Cells(radekshPrehled + 1, "G") = Cells(radek, "Y")

radekshPrehled = radekshPrehled + 4
Next radek
End Subcitovat

husita(24.1.2014 21:16)#017471

To je přesně ono, moc děkuji, já bych se s tím pekloval kdoví jak dlouho. Ještě jednou díkycitovat

Uživatelské menu

Nejste přihlášen(a)

• přihlásit
• registrace

\n

Menu

On-line nástroje

Formulář Faktura

Aktivní diskuse