< návrat zpět

MS Excel

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

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: zip17458_sesit3.zip (99kB, staženo 21x)
Zaslat odpověď >
cmuch(24.1.2014 18:20)#017463
avatar
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
avatar
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)
avatar\n

Menu

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.

On-line nástroje