< návrat zpět

MS Excel

Téma: chyba v kódu rss

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

Zaslat odpověď >
icon AL(3.5.2013 16:15)#013203
avatar
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
avatar
Díky, zkusil jsem , ale ani tak to nefunguje...citovat
icon AL(3.5.2013 17:39)#013205
avatar
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)
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