vytvorit makro-help Vyřešeno

[okbit500]

Potrebujem poradit ,ako vytvorit makro v excel.Chcel by som ,aby ked oznacim mysou bunku mi vratilo text z inej bunky najlepsie z ineho listu.Predstavujem si to tak, ze si vytvorim tlacidlo ktoremu priradim makro.kliknem mysou na bunku a pouzijem makro ,ktore mi ten text do nej skopiruje.Makro si viem vytvorit ,len neviem dokazat aby makro vedelo ,kde som klikol mysou.Hadam so to dobre napisal a nie po tatarsky :)))

[Reklama]

[navstevnik]

K identifikaci vybrane bunky slouzi udalostni procedura listu Private Sub Worksheet_SelectionChange(ByVal Target As Range). V editoru VBA v poli Project - VBAProject rozbalis slozku MS Excel Project a kliknutim na prislusny objekt Listx(jmenolistu) otevres modul listu. V rozbalovaci nabidce vlevo nahore vyber Worksheet a vpravo pak vyse uvedenou proceduru. Promenna Target je typu Range, takze mas k dispozici i adresu bunky (Target.Address).
Takze tvoje procedura muze vypadat nejak takhle:

Kód: Vybrat vše

Option Explicit

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  If Target.Address <> "$A$1" Then Exit Sub
  Target.Value = Worksheets("list2").Range("b6").Value
End Sub

Vice najdes treba zde: http://www.officir.ic.cz/excelentne.html Excelentně v Excelu II.

[okbit500]

prosim Ta ,ak by si mohol nejake vytvorit na ukazku.Ja som v tom uplny zelenac / viem si nahrat len makro/ a v editoru VB neviem pracovat.Bol by som velmi vdacny.Dakujem

[navstevnik]

V predchozim mas takove jednoduche makro (proceduru) vytvoreno - Private Sub Worksheet_SelectionChange . Pro jeho spusteni musis v editoru VBA tuto proceduru (makro) vlozit do modulu listu, ve kterem ma byt spustena.
Jinak to nejde, neda se to obejit, udalostni proceduru nenahrajes, budes se muset s tim nejak popasovat. Proto jsem pripojil odkaz na zaklady programovani ve VBA Excelu. Pripadne jeste tady: http://www.slezak-petr.cz/VBA/VBA_web.htm.
PS: Lze nahrat makro (proceduru), ale pokud ma byt spousteno nejakou udalosti - nejcasteji to je vyber bunky (kliknutim nebo kurzorovymi sipkami), zmena obsahu bunky, ale jsou i dalsi udalosti, pak vzdy musi byt volano z udalostni procedury, napr.:

Kód: Vybrat vše

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  ' procedura je vilana jakoukoliv zmenou vyberu bunky
  If Target.Address <> "$A$1" Then Exit Sub' kdyz neni vybrana pozadovana bunka (napr.: A1), ukoncit
  ' jinak je volana procedura TvojeMakro, tedy to nahrane makro, lze predat i parametry
  Call TvojeMakro ' prikaz Call neni povinny, staci nazev volane procedury
End Sub

Zacni uvedenymi odkazy a preji uspech

[okbit500]

Dakujem velmi pekne ,idem sa s tym popasovat

//Nejdříve se popasuj s pravidly tohoto fóra. Citace posledního příspěvku není povolena!
//Upraveno.
//mike007

[okbit500]

Uz to fachci ,dakujem este raz navstevnik - velmi si mi pomohol