Sub Pobieranie_danych_z_arkusza_4()

Const tytuł As String = "Pobieranie danych z arkusza"

Dim arkusz As Variant
Dim odpowiedź As Long

powtórz:
arkusz = ""

Do While arkusz = ""
    arkusz = Application.InputBox _
    ("Wpisz nr arkusza, z którego chcesz pobrać dane:", tytuł)
Loop

If arkusz = False Then
    MsgBox "Kliknąłeś przycisk 'Anuluj' lub 'X'" & vbNewLine _
    & "albo wcisnąłeś klawisz 'Esc'.", vbInformation
    Exit Sub
End If

If Czy_arkusz_istnieje(arkusz) = False Then
      odpowiedź = _
      MsgBox("Podany arkusz: '" & arkusz & "' nie istnieje!" & vbNewLine & _
             "Czy chcesz ponowić wprowadzanie?", vbInformation + vbYesNo, _
              tytuł)
      If odpowiedź = vbYes Then
          GoTo powtórz
      ElseIf odpowiedź = vbNo Then
          Exit Sub
      End If
End If

MsgBox Worksheets(arkusz).Range("A1").Value

End Sub

Function Czy_arkusz_istnieje(arkusz) As Boolean

Dim ark As Worksheet

Czy_arkusz_istnieje = False

For Each ark In Worksheets
     If ark.Name = arkusz Then
         Czy_arkusz_istnieje = True
         Exit Function
     End If
Next ark

End Function

Sub Pobieranie_danych_z_arkusza_3()

Dim arkusz

Dim odpowiedź As Long

Const tytuł As String = "Pobieranie danych z arkusza"

On Error GoTo koniec:

powtórz:
arkusz = InputBox("Wpisz nr arkusza, z którego chcesz pobrać dane", tytuł)
                                      
If Czy_arkusz_istnieje(arkusz) = False Then
     odpowiedź = MsgBox("Podany arkusz nie istnieje w aktywnym skoroszycie!" & vbNewLine & _
                        "Czy chcesz ponowić wprowadzanie?", vbInformation + vbYesNo, _
                        tytuł)
     If odpowiedź = vbYes Then
         GoTo powtórz
     ElseIf odpowiedź = vbNo Then
         Exit Sub
     End If
End If
                  
If arkusz > 52 Then
     odpowiedź = MsgBox("Podałeś niepoprawny numer tygodnia: " & arkusz & vbNewLine & _
                        "Czy chcesz ponowić wprowadzanie?", vbExclamation + vbYesNo, _
                        tytuł)
     If odpowiedź = vbYes Then
         GoTo powtórz
     ElseIf odpowiedź = vbNo Then
         Exit Sub
     End If
End If

MsgBox Worksheets(arkusz).Range("A1").Value

koniec:
End Sub

Function Czy_arkusz_istnieje(arkusz) As Boolean

Dim ark As Worksheet

Czy_arkusz_istnieje = False

For Each ark In Worksheets
    If ark.Name = arkusz Then
        Czy_arkusz_istnieje = True
        Exit Function
    End If
Next ark

End Function

Sub Pobieranie_danych_z_arkusza()

Dim arkusz As Variant

On Error GoTo koniec:

arkusz = InputBox("Wpisz nr arkusza, z którego chcesz pobrać dane", _
                  "Pobieranie danych z arkusza")
                  
                 
If arkusz > 52 Then
    MsgBox "Sprawdź numer tygodnia", vbInformation, "Pobieranie danych z arkusza"
Else
    MsgBox Worksheets(arkusz).Range("A1").Value
End If

koniec:
End Sub

Sub Pobieranie_danych_z_arkusza_2()

Dim arkusz As Variant
Dim odpowiedź

On Error GoTo koniec:

powtórz:
arkusz = InputBox("Wpisz nr arkusza, z którego chcesz pobrać dane", _
                  "Pobieranie danych z arkusza")
                  
                 
If arkusz > 52 Then
    odpowiedź = MsgBox("Podałeś niepoprawny numer tygodnia: " & arkusz & vbNewLine & _
                       "Czy chcesz ponowić wprowadzanie?", vbExclamation + vbYesNo, _
                       "Pobieranie danych z arkusza")
    If odpowiedź = vbYes Then
        GoTo powtórz
    ElseIf odpowiedź = vbNo Then
        Exit Sub
    End If
Else
    MsgBox Worksheets(arkusz).Range("A1").Value
End If

koniec:
End Sub