< návrat zpět

MS Excel


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

Zaslal/a 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ěď >

#000767
Jeza.m
Dva příklady v příloze.

M@
Příloha: zip767_hledani.zip (7kB, staženo 43x)
citovat
#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 Sub
citovat
#000769
avatar
ty zpetny lomitka v odkazech na bunku samozrejme byt nemaji... :)citovat
#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

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

Makro na upozornění události

elninoslov • 21.5. 2:38

Sloučení dat dvou sešitů

Scraper • 20.5. 7:55

Sloučení dat dvou sešitů

Stalker • 19.5. 23:06

Makro na upozornění události

parkovec • 19.5. 21:07

plynulá pomalá změna barvy

PavDD • 19.5. 13:47

plynulá pomalá změna barvy

veny • 19.5. 13:23

plynulá pomalá změna barvy

r13 • 19.5. 12:37