Ú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

• #40409 Fferi50 Topikgazda sz_abika #40408

  Új Válasz 2019-03-12 17:19:20 #40409

  Ú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

  

  Fferi50

  Topikgazda

  válasz sz_abika #40408 üzenetére

  Szia!

  Egy munkalapra vagy a pontos nevével vagy a munkafüzetben elfoglalt helyének a sorszámával hivatkozhatsz.
  Ha feltételesen keresed a munkalapot, akkor ciklusban kell végignézned azokat.
  Pl.
  Sub keresi()
Dim sh As Worksheet, shvan As Boolean
shvan = False
For Each sh In Worksheets
If Left(sh.Name, 3) = "xxx" Then
ActiveCell.Offset(-2, 0).Value = sh.Range("A1")
shvan = True
Exit For
End If
Next
If Not shvan Then MsgBox "Nincs ilyen munkalap"
End Sub

  Üdv.

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