Új hozzászólás Aktív témák

• #40410 Mutt senior tag sz_abika #40408

  Új Válasz 2019-03-12 20:06:03 #40410

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Mutt

  senior tag

  válasz sz_abika #40408 üzenetére

  Szia,

  Itt az én változatom a problémára:

  Dim wsSource As Worksheet
Dim i As Long
Const wsName = " 1234"

i = 0
Do
i = i + 1
On Error Resume Next
Set wsSource = Sheets(Trim("xxx" & Mid(wsName, i, 1)))
On Error GoTo 0
Loop While wsSource Is Nothing And i < Len(wsName)

If wsSource Is Nothing Then
Call MsgBox("A keresett munkalap nem található", vbOKOnly, "Információ")
Else
ActiveCell.Offset(-2, 0).Value = wsSource.Range("A1")
End If

  üdv

Új hozzászólás Aktív témák