< návrat zpět

MS Excel

Téma: Problém s výběrem buňky rss

Zaslal/a jimice01 21.1.2013 19:48

zdravím, mám vytvořené tlačítko a k němu přiřazené makro, potom chci přepnout na druhý list stejného listu a aktivovat buňku standartním způsobem, jenže excel hlásí, že metoda selhala, kde je prosím chyba ?? Moc dkuji

Zaslat odpověď >
Strana:  1 2   další »
dream2003(21.1.2013 20:23)#011060
avatar
pokud máš makro přidej přílohu věšteckou kouli má pouze admin 1citovat
Opičák(21.1.2013 20:54)#011061
Opičák
Na druhý list stejného listu jsem ještě nikdy nepřepnul. Ať dělám co dělám, nic. 6 9citovat
jimice01(22.1.2013 8:15)#011066
avatar
Private Sub CommandButton1_Click()
Sheets("list1").Select
pocetpolozek = 0
Range("e1").Select
Do Until ActiveCell = "xxx"
Selection.Range("a1:a300").Select

Rem zápis dat do proměných
Selection.Offset(1, 0).Range("a1").Select
If ActiveCell <> "" Then pocetpolozek = pocetpolozek + 1
pocetradku = pocetradku + 1
Loop
If ActiveCell = "xxx" Then
End If
Range("h6") = pocetpolozek

ReDim polozka(pocetradku)
ReDim nazevpolozky(pocetradku)

Range("e1").Select
For i = 1 To pocetradku

Selection.Range("a1:a300").Select
Selection.Offset(1, 0).Range("a1").Select
If ActiveCell <> "" Then

polozka(i) = ActiveCell

Selection.Offset(0, -3).Range("a1").Select
nazevpolozky(i) = ActiveCell
Selection.Offset(0, 3).Range("a1").Select

End If

Next i

Sheets("list2").Select
jimice01(22.1.2013 8:27)#011067
avatar
až sem makro pracuje,
nyní následujuje
Range("A1").select a nedokáže tu buňku najít... čím to je prosím ??citovat
Dingo(22.1.2013 12:49)#011068
avatar
Celé to makro asi není důležité, stačí si vyzkoušet jen ty poslední 2 řádky na tlačíto. Jiný list aktivovat jde, ale buňka v něm už ne. Už jsem se s tím setkal, a protože ve vba zatím tápu, vzal jsem to jako vlastnost.
Dá se to obejít tak, že na další pokračování zavoláš "normální" makro umístěné v modulu a tam už si na listu2 můžeš aktivovat co chceš.citovat
jimice01(22.1.2013 13:03)#011069
jimice01
taky v tom trošku bloudím, mohu poprosit jak mám zavolat normální makro v modulu ?? děkuji moc ..citovat
Dingo(22.1.2013 13:18)#011071
avatar
Můj výzkum: kód k tlačítku je zapsán v listu. Tak mi přijde pochopitelné, že makrem nepřelezeš oblast toho listu. Asi.
Ale dá se samozřejmě zapsat na list2 takto:
Worksheets("List2").Range("A1") = "neco"
K tomu volání.. vytvoříš třeba makro "pokracuj" v modulu toho sešitu. Kód tlačítka pak bude:
Private Sub CommandButton1_Click()
Range("A1") = "zapis na ten samy list" ' nebo jine akce
pokracuj
End Sub

Modul:
Sub pokracuj()
Worksheets("List2").Select
Range("A2").Select ' aby tam byl ten Select
ActiveCell = "zapsano makrem Pokracuj"
End Sub
citovat
jimice01(22.1.2013 15:41)#011080
jimice01
Děkuji moc .. tak to opravdu funguje, asi je to vlastnost 1citovat
dream2003(22.1.2013 17:28)#011089
avatar
s tímto jsem nikdy problém neměl zkus nahradit Range("A1").select za Cells(1, 1).Selectcitovat
Opičák(22.1.2013 20:24)#011094
Opičák
Tož jsem to vyzkoušel a došel ke stejnému závěru jako Dingo. Je-li makro v listu, nepokračuje na jiném listu, což je logické. Pokud dáš makro do "module" funguje normálně. Makro spustíš v Module třeba tak:

Private Sub CommandButton1_Click()
Call makro_jmeno
End Subcitovat

Strana:  1 2   další »

Uživatelské menu

Nejste přihlášen(a)
avatar\n

Menu

Formulář Faktura

Formulář Faktura IV

Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.

Helios iNuvio

Používáte podnikový systém Helios iNuvio? Potřebujete pomoci se správou nebo vyvinout SQL proceduru? Více informací naleznete na stránce Helios iNuvio.

On-line nástroje