< návrat zpět
MS Excel
Téma: Makro na hledání hodno
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!
Jeza.m(13.10.2009 14:31)#000767 Dva příklady v příloze.
M@
Příloha: 767_hledani.zip (7kB, staženo 54x) citovat
Pokaic(13.10.2009 14:57)#000768 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 ty zpetny lomitka v odkazech na bunku samozrejme byt nemaji... :)
citovat
justin(14.10.2009 12:50)#000770 Perfektní! Oběma Vám moc a moc děkuju. Hrozně jste mi pomohli!
citovat