< návrat zpět

MS Excel

Téma: Makro na hledání hodno rss

Zaslal/a justin 13.10.2009 13:11

Ahoj, mohl bych poprosit někoho, kdo má makra v malíku, jestli by mi sem mohl postnout excelovskej soubor s makrem, který by mělo dělat následující.

Do předem definované (výchozí) buňky by zapsalo číslo, které sebere z buňky vlevo od výchozí. Pokud bude ve vedlejší buňce "x" nebo např. nula, tak by se makro mělo kouknout ještě o buňku vlevo a tak stále dokola, dokud nenarazí na nějakou hodnotu.
Zkusil jsem si napsat funkci s If-then sám, ale moje znalosti na to nestačí.
Tisíceré díky!

Zaslat odpověď >
Jeza.m(13.10.2009 14:31)#000767
Jeza.m
Dva příklady v příloze.

M@
Příloha: zip767_hledani.zip (7kB, staženo 55x)
citovat
Pokaic(13.10.2009 14:57)#000768
avatar
Ještě formou makra, kdyby se nemělo jednat o funkci!

Stačí pouze zadat, která buňka je výchozí: (př. buňka P30)
Set Bunka = Range(\"p30\")
-------

Public Sub Offset()

Dim Bunka As Range

Set Bunka = Range(\"p30\")

Bunka.Select

For i = 1 To Bunka.Column

If IsNumeric(ActiveCell.Offset(0, -i)) = True And ActiveCell.Offset(0, -i) <> 0 Then

Bunka = Cells(Bunka.Row, Bunka.Column - i)

Exit Sub
Else

End If

Next i

End Subcitovat
Pokaic(13.10.2009 14:59)#000769
avatar
ty zpetny lomitka v odkazech na bunku samozrejme byt nemaji... :)citovat
justin(14.10.2009 12:50)#000770
avatar
Perfektní! Oběma Vám moc a moc děkuju. Hrozně jste mi pomohli! 2citovat

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