• Úvod
• Excel návod
• Excel šablony
• Nástěnka
• Mobility
• Tipy na výlet
• Galerie
• Fórum

MS Excel

Téma: chyba v kódu

Zaslal/a Palava 3.5.2013 16:03

Ahoj, nevidíte prosím nějakou chybu v tomhle makru? Nefunguje mi, potřeboval bych, aby v jedno sloupci byly názvy listů, v druhém pojmenování těch listů a kliknutím na pojmenování došlo k otevření onoho listu...

Díky moc za rady

Private Sub Worksheet_SelectionChange(ByVal target As Range)

Dim Radek As Long
Radek = ActiveCell.row

If target.Address = ActiveSheet.Cells(Radek, 14) Then
Set a = ActiveSheet.Cells(Radek, 14).Value 'volba
Set b = ActiveSheet.Cells(Radek, 13).Value 'volba
If a <> "" Then
nazev = b
ActiveSheet.Cells(Radek, 4).Value = "ANO"
ActiveWorkbook.Save
Worksheets(nazev).Activate

End If
End If


End Sub

Jméno
Kontrola
Text
	Ukázka

---

AL(3.5.2013 16:15)#013203

Určite je chyba v použití set, nepíš set a= a set b=, ale iba a= a b=
Ďalej som to neštudoval...citovat

Palava(3.5.2013 16:19)#013204

Díky, zkusil jsem , ale ani tak to nefunguje...citovat

AL(3.5.2013 17:39)#013205

Neviem síce, čo myslíš názvom a čo pomenovaním listu, každopádne, pokiaľ budeš mať v stĺpci M názvy listov (to isté, čo vidíš na uškách listov), tak fungovať by to mohlo takto (bola tam ďalšia chyba, a to v prvej podmienke If):Private Sub Worksheet_SelectionChange(ByVal target As Range)
Dim Radek As Long
Radek = ActiveCell.Row
If target.Address = ActiveSheet.Cells(Radek, 14).Address Then
a = ActiveSheet.Cells(Radek, 14).Value 'volba
b = ActiveSheet.Cells(Radek, 13).Value 'volba
If a <> "" Then
nazev = b
ActiveSheet.Cells(Radek, 4).Value = "ANO"
ActiveWorkbook.Save
Worksheets(nazev).Select
End If
End If
End Subcitovat

Uživatelské menu

Nejste přihlášen(a)

• přihlásit
• registrace

\n

Menu

On-line nástroje

Formulář Faktura

Aktivní diskuse