MS Excel

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

Zaslat odpověď >

Strana: « předchozí 1 2

Adel2(23.4.2014 19:54)#019054

Dream2003 dekuji a dekuji i ALovi jste skvelý moc jste mi pomohly jste sikulky

citovat

dream2003(23.4.2014 20:00)#019055

AL je větší já to jen uzpůsobil dle svých a vašich potřebcitovat

Adel2(23.4.2014 20:32)#019056

este jedna malickata prozbycka.. potrebuju aby se mi sloupec zkopiroval na listu2 na pole C6
tak jen jak mam upravit tenhle radek díky moc

.Columns(colToCopy + 3).Copy List2.[A1]citovat

Merlin99(23.4.2014 23:21)#019057

Zdravim
zaujmul me komentar Adel.. myslim ze je to dost zasadni tema a napadl me tentno problem viz priloha.. kdyby nekdo vedel myslim ze to pomuze hodne lidem . DÍKY

Příloha: rar

19057_pokus.rar (19kB, staženo 22x)

citovat

AL(23.4.2014 23:38)#019058

@Adel: potrebuju aby se mi sloupec zkopiroval na listu2 na pole C6
v tomto prípade sa nejedná o kopírovanie celého stĺpca, čiže môj pôvodný kód je potrebné modifikovať. Pri rozložení dát, ktoré vo svojej prílohe použil dream, by som to napísal nejako takto, aby to vyhovovalo tvojmu zadaniu Sub Pom1()
Dim colToCopy As Integer, rngToCopy As Range
With List1
colToCopy = WorksheetFunction.Match(CLng(CDate(.[B2])), .[D2:K2], 0) + 3
Set rngToCopy = .Cells(2, colToCopy)
Set rngToCopy = rngToCopy.Resize(WorksheetFunction.CountA(.Columns(colToCopy)), 1)
End With
rngToCopy.Copy List2.[C6]
Set rngToCopy = Nothing
End SubVzhľadom k tomu, že VBA je objektovo orientovaný jazyk, tak používam v kóde objektové premenné, pokiaľ možno.citovat

AL(24.4.2014 0:13)#019059

@Merlin: nejako mi uniká, v čom podstatnom sa tvoj dotaz líši od Adelinho, je to stále variácia na jednu a tú istú tému. Pokiaľ sa chceš VBA skutočne naučiť, tak by si asi mal viac skúšať sám, miesto toho aby si pokladal v podstate jednu a tú samú otázku.Sub Pom1()
Dim colToCopy As Integer, rngToCopy As Range
With List1
colToCopy = WorksheetFunction.Match(.[B2], .[D2:K2], 0) + 3
Set rngToCopy = .Cells(2, colToCopy)
Set rngToCopy = rngToCopy.Resize(WorksheetFunction.CountA(.Columns(colToCopy)), 1)
End With
rngToCopy.Copy List2.[D3]
Set rngToCopy = Nothing
End Subcitovat

AL(24.4.2014 0:30)#019060

@all: mimochodom, pokiaľ sa majú dáta z listu1 prenášať vždy do jednej a tej samej adresy na liste2 (napr. do bunky A1, B2 apod., proste vždy sa majú "kopírovať" do tej samej bunky), tak na to žiadne makro nepotrebujete, na to stačí jednoduchý vzorec vyžívajúci funkcie INDEX, POZVYHLEDAT, prípadne ešte POČET2, eventuálne POSUN, možností je spústa na úrovni funkcií excelu, makro v tomto prípade pokladám za cvičenie, zďaleka nie za jedinú možnosť riešenia, on vám k tomu určite povie svoje časom i eLCHa

citovat

eLCHa(24.4.2014 6:58)#019061