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

• #31148 Nowitzki csendes tag YAN0U #31147

  Új Válasz 2016-03-27 21:25:42 #31148

  Ú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

  

  Nowitzki

  csendes tag

  válasz YAN0U #31147 üzenetére

  Üdv,

  Próbáld meg ezt:
  Sub NullakTorlese()
  Dim Rng(1 To 3) As String
  Rng(1) = "C"
  Rng(2) = "G"
  Rng(3) = "K"
  For i = 1 To 3
  For j = 1 To 22
  If Cells(j, Rng(i)) = 0 Then
  Cells(j, Rng(i)).ClearContents
  End If
  Next j
  Next i
  End Sub

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