< 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!

Jméno
Kontrola
Text
  b i u s img code url hr   1 2 3 4 5 6 7 8 9 10

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

M@
Příloha: zip767_hledani.zip (7kB, staženo 54x)
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

odpocet a storno tl.

PavDD • 28.3. 8:53

odpocet a storno tl.

Začátečník • 26.3. 14:39

odpocet a storno tl.

PavDD • 26.3. 10:22

odpocet a storno tl.

elninoslov • 26.3. 7:50

odpocet a storno tl.

PavDD • 26.3. 7:26

odpocet a storno tl.

elninoslov • 25.3. 22:34

odpocet a storno tl.

Začátečník • 25.3. 15:09