Ú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.

• #39158 Fferi50 Topikgazda butch3r #39157

  Új Válasz 2018-09-20 12:53:28 #39158

  Ú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!

  Ha csak az elrejtett fülön van pivot, akkor így módosítsd:
  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
  If sh.Pivottables.Count = 0 Then 'legyen a feltételben a For Each után
  Ha viszont csak az aktuális munkalapon szeretnéd alkalmazni, akkor csak a Dim és a For ...Next ciklust hagyd benne, a többit kommenteld ki (aposztróf ' a sor elejére)

  Üdv.

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