< návrat zpět

MS Excel


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

Zaslal/a 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ší »
#011060
avatar
pokud máš makro přidej přílohu věšteckou kouli má pouze admin 1citovat
#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
#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
#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
#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
#011069
jimice01
taky v tom trošku bloudím, mohu poprosit jak mám zavolat normální makro v modulu ?? děkuji moc ..citovat
#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
#011080
jimice01
Děkuji moc .. tak to opravdu funguje, asi je to vlastnost 1citovat
#011089
avatar
s tímto jsem nikdy problém neměl zkus nahradit Range("A1").select za Cells(1, 1).Selectcitovat
#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

On-line nástroje

Formulář Faktura

Formulář Faktura IV

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

Aktivní diskuse

odpocet a storno tl.

PavDD • 28.3. 8:53

odpocet a storno tl.

Začátečník • 26.3. 14:39

odpocet a storno tl.

PavDD • 26.3. 10:22

odpocet a storno tl.

elninoslov • 26.3. 7:50

odpocet a storno tl.

PavDD • 26.3. 7:26

odpocet a storno tl.

elninoslov • 25.3. 22:34

odpocet a storno tl.

Začátečník • 25.3. 15:09