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

• #6929 Delila_1 veterán k.zola219 #6928

  Új Válasz 2010-04-21 08:08:45 #6929

  Ú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

  

  Delila_1

  veterán

  válasz k.zola219 #6928 üzenetére

  Sub valami()
  Dim cv As Object
  
  For Each cv In Range("B2:N40")
  If IsEmpty(cv.Value) Then
  Range(cv.Address) = Cells(1)
  Else
  If IsNumeric(cv) Then Range(cv.Address) = cv * Cells(2, 1)
  End If
  Next
  End Sub

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