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

• #21523 lenkei83 tag Delila_1 #21522

  Új Válasz 2014-05-09 19:26:24 #21523

  Ú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

  

  lenkei83

  tag

  válasz Delila_1 #21522 üzenetére

  Megoldottam máshogy...

  Minden lapon van fix cellám ami nem változik:

  Sub AR_APSELECT()

  Dim SheetArray() As Variant
  Dim ws As Worksheet
  Dim indx As Integer
  For Each ws In ThisWorkbook.Sheets
  If ws.Range("A6") = "Company" Then
  ReDim Preserve SheetArray(indx)
  SheetArray(indx) = ws.Index
  indx = indx + 1
  End If
  Next
  If indx > 0 Then
  Sheets(SheetArray()).Select
  End If
  End Sub

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