radioblaster
09.03.12,11:38
Zdravim,
potreboval by som poradit s jednym makrom.
Mam excel do ktoreho sa mi importuju data z databazy su to tri stlpce a ja by som potreboval pridat stvrty v ktorom by bol vzorec =IFERROR(VLOOKUP(A2;Solivia_11;2;FALSE);"Uncategorized"). To uz som aj nejak dokazal problem mam s tym ze neviem spravit nejaky cyklus, ktory by pridal tento vzorec len do riadkov kde su importovane data.
potreboval by som poradit s jednym makrom.
Mam excel do ktoreho sa mi importuju data z databazy su to tri stlpce a ja by som potreboval pridat stvrty v ktorom by bol vzorec =IFERROR(VLOOKUP(A2;Solivia_11;2;FALSE);"Uncategorized"). To uz som aj nejak dokazal problem mam s tym ze neviem spravit nejaky cyklus, ktory by pridal tento vzorec len do riadkov kde su importovane data.
PaloPa
09.03.12,11:21
Sub Vzorec_od_poslednej_vyplnenej()
Range("B50000").End(xlDown).Select 'skok na absol.poslednu
Selection.End(xlUp).Select 'skok na poslednu vyplnenu
ActiveCell.Offset(0, 3).Select 'skok na bunku, kde bude vzorec
ActiveCell.FormulaR1C1 = "=SUM(RC[-3]:RC[-1])" 'urob vzorec (tip: nahratie makra)
ActiveCell.Copy 'kopia vzorca
Range(Selection, Selection.End(xlUp).Offset(1, 0)).Select 'oznac oblast po druhy riadok
ActiveSheet.Paste 'kopiruj vzorec
Application.CutCopyMode = False
End Sub
Range("B50000").End(xlDown).Select 'skok na absol.poslednu
Selection.End(xlUp).Select 'skok na poslednu vyplnenu
ActiveCell.Offset(0, 3).Select 'skok na bunku, kde bude vzorec
ActiveCell.FormulaR1C1 = "=SUM(RC[-3]:RC[-1])" 'urob vzorec (tip: nahratie makra)
ActiveCell.Copy 'kopia vzorca
Range(Selection, Selection.End(xlUp).Offset(1, 0)).Select 'oznac oblast po druhy riadok
ActiveSheet.Paste 'kopiruj vzorec
Application.CutCopyMode = False
End Sub
radioblaster
09.03.12,11:55
Dakujem za rychlu odpoved! Ja som sice medzicasom uz na nieco prisiel, ale toto funguje rychlejsie, takze to pouzijem.