[Makiner]

Hej,

Mam takie makro w VBA:

Sub Przygotuj()
Sheets("Arkusz1").Select
Columns("B:G").Select
Selection.Delete Shift:=xlToLeft
Columns("C:D").Select
Selection.Delete Shift:=xlToLeft
Range("A1").Select
ActiveCell.FormulaR1C1 = "Numer materialu"
Range("B1").Select
ActiveCell.FormulaR1C1 = "Zapas dostepny"
Range("B2").Select
Sheets("Arkusz1").Select
End Sub

I problem w tym ze chcialbym zeby najpierw sprawdzalo czy arkusz1 istnieje, jesli nie ma to ma byc komunikat "Wczytaj plik".

Czy ktos mi pomoze świątecznie?:)

#excel #vba

z góry dzięki!

[zestolicy]

@Makiner:

For i = 1 To Worksheets.Count
If Worksheets(i).Name = "MySheet" Then
exists = True
End If
Next i

If Not exists Then
Worksheets.Add.Name = "MySheet"
End If

[Makiner]

@zestolicy z tego co widze to to tworzy nowy jest nie istnieje a nie o to chodzi.Ma tylko sprawdzic czy istnieje a jeśli go nie ma to wyswietlic komunikat.

[Makiner]

@zestolicy: Masz jakis inny pomysl?

[DwaNiedzwiedzie]

@Makiner: Sub Przygotuj()
Dim sh As Worksheet

On Error Resume Next
Set sh = Sheets("Arkusz1")
On Error GoTo 0

If sh Is Nothing Then
MsgBox "Wczytaj plik."
Exit Sub
End If

With sh
.Activate
.Range("B:G, I:J").Delete Shift:=xlToLeft
.Range("A1").Value = "Numer materialu"
.Range("B1").Value = "Zapas dostepny"
.Range("B2").Select
End With

End Sub