< návrat zpět

MS Excel


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

Zaslal/a 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 28x)
Zaslat odpověď >

Strana:  1 2   další »
#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 27x)
citovat
icon #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 Sub
citovat
#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
#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 27x)
citovat
#019048
avatar
skuste toto:
Příloha: zip19048_test.zip (20kB, staženo 38x)
citovat
#019049
Merlin99
Paloo mooc elegantní dííky !! 1citovat
#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
#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 32x)
citovat
#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
#019053
avatar
dobrý den, upraven ALúv kód pro vaše potřeby
Příloha: zip19053_sesit14.zip (20kB, staženo 34x)
citovat

Strana:  1 2   další »

Uživatelské menu

Nejste přihlášen(a)
avatar\n

Menu

On-line nástroje

Formulář Faktura

Formulář Faktura IV

Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.

Aktivní diskuse

odpocet a storno tl.

PavDD • 28.3. 8:53

odpocet a storno tl.

Začátečník • 26.3. 14:39

odpocet a storno tl.

PavDD • 26.3. 10:22

odpocet a storno tl.

elninoslov • 26.3. 7:50

odpocet a storno tl.

PavDD • 26.3. 7:26

odpocet a storno tl.

elninoslov • 25.3. 22:34

odpocet a storno tl.

Začátečník • 25.3. 15:09