izpis v celico

[matjaz]

pozdrav v forum

imam težavo, pa bi rabil en majčken makro.....
glasil naj bi se nekako takole:

sem v celici A1,v stolpcu od C2: C100 najdi največje število in
izpiši v A1 ,kar je v drugi celici levo od najdenega največjega števila.
upam,da ne bo prehudo.
za odgovor se najlepše zahvaljujem.
lp

[Stenly]

Pozdravljeni

,kar je v drugi celici levo od najdenega največjega števila.

predvidevam, da je to v stolpcu "A"

Koda: Izberi vse

Sub Makro11()
'
   najdi_max = Application.WorksheetFunction.Max(Range("C2:C100"))
   Range("A1").Value = Range("C2:C100").Find(What:=najdi_max).Offset(0, -2).Value

End Sub

Lp

[matjaz]

pozdravljeni

me veseli da imamo forum,kjer se najdejo ljudje,ki ti priskočijo
na pomoč.rešitev,ki ste mi jo napisali je perfektna.
hvala za vaš trud
bye

[matjaz]

pozdravljeni

imam še eno "podvprašanje":
v vstolpce sem vpisal določene podatke in makro mi deluje povsem
brezhibno,toda glej ga zlomka(poišči mi največjo vrednost v stolpcu in
izpiši kar je za dve celici levo),toda pozabil sem povedat,da imam v tem
stolpcu,ki iščem največje število formule,katere potem dajejo vrednosti.
no, formule,oziroma te vrednosti pa ta makro ne prepozna.
(prepozna le celice formatirane za številke).
bi bilo mogoče tudi to urediti?
za odgovor se najlepše zahvaljujem.

lp

[Stenly]

Koda: Izberi vse

Sub Makro11()
'
   najdi_max = Application.WorksheetFunction.Max(Range("C2:C100"))
   Range("A1").Value = Range("C2:C100").Find(What:=najdi_max, LookIn:=xlFormulas).Offset(0, -2).Value

End Sub

[matjaz]

pozdravljeni

hvala Stenly za vaš trud ,točno to sem rabil.
večkrat berem vaše rešitve in včasih vam že skoraj zavidam.....
lp