< návrat zpět

MS Excel

Téma: vba nalezení pozice v řádku a zkopírovat sloupec rss

Zaslal/a dream2003 22.4.2014 21:01

Dobrý den (ahoj),

již několik dnů se pachtím s makrem a nedaří se mám tabulku kde jsou v řádku datumy a já bych potřeboval vyhledat v tomto řádku aktuální datum a daný sloupec zkopírovat bude se vkládat do extra sešitu kde provádím s daty výpočty ukázka tabulky v příloze děkuji za jakoukoli pomoc

Příloha: zip19012_sesit4.zip (12kB, staženo 29x)
Zaslat odpověď >
Strana:  1 2   další »
Merlin99(22.4.2014 23:23)#019018
Merlin99
zdravim
no pokusil jsem se oto a udelal jsme to dost barbarsky vlozil sem aktualni datum prez funkce =DNES() a pak prez KDYZ jsem porovnaval schodu sloupcu s datumy v nove vytvorene databazi pote prez SUMA jsem vygeneroval potrebne radky a pak udelal MAKRO na kopirovani do 2listu. (chci jen rict ze pokud mas v zaznamech neco jineho nez cisla tak to nebude fungovat... nato bude chtit asi elegantnejsi MAKRO 6 )
Příloha: rar19018_pokus.rar (208kB, staženo 28x)
citovat
icon AL(23.4.2014 0:24)#019019
avatar
@Merlin: každý nejak začínal ale nie každý má asi tvoju odvahu publikovať svoje pokusy 1

@dream: po niekoľkých dňoch si bol schopný vytvoriť akurát uvedenú ukážku tabuľky? Tož, i tebe patrí obdiv 1

tu máš príklad kódu, ďalej sa snaž trochu sámSub Pom()
Dim colToCopy As Integer
With List1
colToCopy = WorksheetFunction.Match(CLng(Date), .Rows("1:1"), 0)
.Columns(colToCopy).Copy List2.[A1] 'miesto List2.[A1] napis, kam chces kopirovat
End With
End Subcitovat
dream2003(23.4.2014 8:12)#019022
avatar
Děkuji za pomoc
merlin tvoje řešení mě sice napadlo také a tímto směrem jsem se nechtěl ubírat věděl jsem že to půjde elegantněji viz ALovo řešení

AL neměl jsem jen tu tabulku ale nic funkčního tvůj kód si již uzpůsobím mockrát děkujicitovat
Merlin99(23.4.2014 13:52)#019046
Merlin99
Moc pekne ALe jen by me zajimalo jak by se elegantne resil tento univerzalnesi a dost vyskytujici se problem. viz .... díky
Příloha: rar19046_pokus1.rar (12kB, staženo 28x)
citovat
Palooo(23.4.2014 14:50)#019048
avatar
skuste toto:
Příloha: zip19048_test.zip (20kB, staženo 39x)
citovat
Merlin99(23.4.2014 15:14)#019049
Merlin99
Paloo mooc elegantní dííky !! 1citovat
Adel2(23.4.2014 15:52)#019050
avatar
Dobrý den
zaujalo mě Vaše makro na vyhledání a kopírování řeším obdobný problém jen bych potřebovala aby tam nebyl ten formulář ale zadanou hodnotu bych vybrala v rozevíracím seznamu šloby to? děkuji...citovat
Palooo(23.4.2014 16:37)#019051
avatar
povodne som to chcel tak spravit :) ale drzal som sa scenara

... tu je to na combobox:
Příloha: zip19051_test.zip (25kB, staženo 33x)
citovat
Adel2(23.4.2014 17:45)#019052
avatar
Díky Paolooo je videt ze se opravdu vyznas jen bych to potrebovala jakoby na dvakrat jak je nahore overeni dat ten seznam tak tam chci vybrat ten datum a pote chci zmacknout tlacitko ktere ptovede to nasledne kopirovani... nezlobte se za otravovani hodne by mi to pomohlocitovat
dream2003(23.4.2014 19:10)#019053
avatar
dobrý den, upraven ALúv kód pro vaše potřeby
Příloha: zip19053_sesit14.zip (20kB, staženo 35x)
citovat

Strana:  1 2   další »

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