izpis v celico

Pomoč pri izdelavi makrov
Odgovori
matjaz
Prispevkov: 32
Pridružen: So Jan 27, 2007 11:19 pm

izpis v celico

Odgovor Napisal/-a 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
Prispevkov: 223
Pridružen: Sr Jul 27, 2005 11:29 pm

Odgovor Napisal/-a 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
Prispevkov: 32
Pridružen: So Jan 27, 2007 11:19 pm

Odgovor Napisal/-a 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
Prispevkov: 32
Pridružen: So Jan 27, 2007 11:19 pm

pozdravljeni

Odgovor Napisal/-a 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
Prispevkov: 223
Pridružen: Sr Jul 27, 2005 11:29 pm

Odgovor Napisal/-a 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
:D
matjaz
Prispevkov: 32
Pridružen: So Jan 27, 2007 11:19 pm

Odgovor Napisal/-a 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
Odgovori