Excel: Prosím o vytvoření makra

[Palino]

Zdravím pánové, potřeboval bych prosím makro aby umělo že když označím určité buňky, aby je to prohledalo a pokud by v nich našlo hodnoty větší než 0,2. Aby to do určité buňky napsalo danou větu...

Děkuju

[navstevnik]

Procedura VBA - na aktivnim listu pro vybranou oblast (selection) vyhleda hodnoty >=0,2 a vlozi text:

Kód: Vybrat vše

Option Explicit

Sub ProhledatVlozit()
  Dim Blok As Range, c As Range
  ' co hledat
  Const Co As Double = 0.2

  Set Blok = Application.Selection
  For Each c In Blok.Cells
    'zde zadat offset nebo adresu bunky (Worksheets("listxx").Range("a1").Value) pro vlozeni textu
    If IsNumeric(c.Value) And c.Value >= Co Then c.Offset(5, 5).Value = "nejaky text"
  Next c
End Sub

[Palino]

Super díky moc. Jsem v tomhle amatér, ještě bych chtěl poprosit jak udělat aby mi to ten text dalo jen jednou a do buňky třeba T36?

[navstevnik]

Jak to udelat mas napsano v poznamce v procedure: "...adresu bunky (Worksheets("listxx").Range("a1").Value)..."
Abys nerekl, ze ti nechci pomoci, tak zde je upravena procedura:

Kód: Vybrat vše

Option Explicit

Sub ProhledatVlozit()
  Dim Blok As Range, c As Range
  ' co hledat, kam vysledek a vlozeny text
  Const Co As Double = 0.2
  Const Kam As String = "T36"
  Const VlozText As String = "najaky text"

  Set Blok = Application.Selection
  For Each c In Blok.Cells
    If IsNumeric(c.Value) And c.Value >= Co Then ActiveSheet.Range(Kam).Value = VlozText
  Next c
End Sub

[Palino]

Díky moc. Super. Ještě jeden dotaz? dá se nějak to makro uložit aby se dalo použít i v jiných excelovských souborech? Nebo musím pokaždé makro zkopírovat?

[mike007]

Ulož si ho do PERSONAL.xls a bude dostupné ve všech dokumentech.

[Palino]

Normálně dám uložit jako... a pojmenuju to PERSONAL.xls? Protože když to uložím, tak jakmile otevřu zvolený soubor a spustím makro, tak to sice vyhledá ve zvoleném souboru xls, ale napíše to text do toho personal.xls

[mike007]

Ne, takto určitě ne

V příloze je speciální dokument pro začátečníky, který za ně vytvoří PERSONAL. Pomocí tohoto dokumentu můžeš do vytvořeného PERSONALu vložit i makra. Velice jednoduché.

Instrukce:

1) spusť xls dokument skript.xls
2) zkontroluj, zda máš povoleno importování VB : Nástroje --> Makro --> Zabezpečení --> záložka Důvěryhodný vydavatel --> zaškrtnout obě níže uvedené položky --> OK
3) Spusť makro (Alt+F8) AddPersonal
4) Dále se drž instrukcí makra.

Kde se PERSONAL.xls nachází zjistíš pomocí jednoduchého příkazu, který zadej ve VBA do okna Immediate
?application.StartupPath , potvrď ENTERem. To jen pro tvou informaci, abys věděl kde musí být dokument s makry uložen, aby to všechno fungovalo jak má

---

[Palino]

Jsem teda úplnej idiot , ale kde najdu okno immediate? A jak to makro pak spustím v jiném souboru? Pořád se mi tam nechce objevit?
Takže spustím script.xls, povolím zabezpečení, vytvoří se personal.xls, zeptá se mi to jestli chci vložit nějaké makro (tady dám ano) ale dál už nevím.

Jsem asi fakt nějakej zabržděnej, omlouvám se.

[mike007]

Makro od navstevnika si ulož třeba do poznámkového bloku. Otevři skript.xls, spusť makro AddPersonal. Nyní ti to jistě napíše, že máš PERSONAL již vytvořený a zda chceš do něj vložit makra. Odklikni že ano, najdi txt soubor s makrem a vlož. Makro od navstevnika se ti implementuje do PERSONALu. Teď aby se ti PERSONAL otevřel bude pravděpodobně potřeba zavřít všechny Excelové dokumenty a znovu otevřít Excel. PERSONAL se ti otevře taky a zůstane skrytý. Makra v něm budou dostupná pro všechny dokumenty.

Okno Immediate otevřeš ve VBA. VBA otevřeš pomocí zkratky Alt+F11
Pokud tam okno Immediate nevidíš, tak si ho aktivuj pomocí zkratky Ctrl+G nebo v menu View --> Immediate Window

Krok s Immediate oknem můžeš klidně vynechat. To není součástí spuštění PERSONALu. Já ti chtěl jen ukázat jakým způsobem si zjistíš, kam se ti PERSONAL uložil - je to pouze informativní záležitost.

[Palino]

Jo už to mám všechno ready. I s tím oknem Immediate.

Strašně moc děkuju, makra jsou pro mě zakletý, vůbec tomu nerozumím.

Díky díky díky

[mike007]

No jo, nikdo nemůže rozumět všemu, že?