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

• #39159 Fferi50 Topikgazda butch3r #39157

  Új Válasz 2018-09-20 12:57:23 #39159

  Ú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 butch3r #39157 üzenetére

  Szia!

  Egy munkalaphoz így módosítsd:
  Sub ertekado()
Dim sh As Worksheet, sr As Integer
'For Each sh In Worksheets
For sr = 7 To 123 Step 4
sh.Range("C" & sr & ":N" & sr).Value = sh.Range("C" & sr & ":N" & sr).Value
Next
'Next
End Sub
  Ha csak elrejtett lapon van pivot, akkor
  Sub ertekado()
Dim sh As Worksheet, sr As Integer
For Each sh In Worksheets
If sh,Visible=xlsheetVisible then
For sr = 7 To 123 Step 4
sh.Range("C" & sr & ":N" & sr).Value = sh.Range("C" & sr & ":N" & sr).Value
Next
End If
Next
End Sub
  Ha máshol is lehet, akkor a feltétel a For Each után:
  If sh.Pivottables.Count >0 Then

  Üdv.

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