excel - nazwa arkusza pobrana z komorki
Witam
w arkuszu1 w kolumnie A w kolejnych wierszach mam:
Ala
Ola
Ela
...
Chcialbym zeby kolejne arkusze nazywaly sie wlasnie Ala, Ola, Ela. Zeby automatem pobieraly nazwy z komórek.
Niestety nie moge wpasc na to jak to zrobic.
Prosze o jakies wskazowki.
Odpowiedzi: 2
Hej
Kliknij prawym klawiszem myszy na nazwie arkusza w którym znajduje się Twój spis i wybierz Wyświetl kod i wklej tam
Private Sub Worksheet_Change(ByVal Target As Range)
Dim a As Integer
Dim b As Integer
Dim lista() As String
If Application.Intersect(Range("A1:A200"), Target) Is Nothing Then Exit Sub
ReDim lista(1 To Cells(Rows.Count, 1).End(xlUp).Row)
For a = 1 To Cells(Rows.Count, 1).End(xlUp).Row
If WorksheetFunction.CountIf(Range(Range("A1"), Cells(Rows.Count, 1).End(xlUp)), Cells(a, 1)) > 1 Then
MsgBox "Nie może być dwóch arkuszy o tej samej nazwie"
Exit Sub
Else
If Cells(a, 1) <> "" Then
b = b + 1
lista(b) = Cells(a, 1)
End If
End If
Next
1
For a = 1 To b
For b = 1 To Sheets.Count
If UCase(Sheets(b).Name) = UCase(lista(a)) Then Sheets(b).Move Sheets(a): Exit For
Next b
If b = Sheets.Count + 1 Then Sheets.Add: ActiveSheet.Name = lista(a): GoTo 1
Next a
Me.Select
End Sub
Test kodu pozostawim dla Ciebie.
Pozdrawiam
spróbuj tego http://www.poradnikexcela.com/Porady/Porada%2062.htm
nie testowałem ale może (...)