< 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 46x)
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

Prirazeni OnClick makra CommandButtonu pres VBA

Tex • 3.10. 1:57

Automatické dosazení KDYŽ

marjankaj • 2.10. 22:22

Automatické dosazení KDYŽ

PavelJ • 2.10. 21:54

Automatické dosazení KDYŽ

elninoslov • 2.10. 20:21

Automatické dosazení KDYŽ

PavelJ • 2.10. 19:55

Automatické dosazení KDYŽ

Stalker • 2.10. 19:23

Automatické dosazení KDYŽ

PavelJ • 2.10. 18:22