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

• #3065 Delila_1 veterán fap333 #3062

  Új Válasz 2008-01-30 14:50:19 #3065

  Ú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 fap333 #3062 üzenetére

  Sub szaznal_nagyobb()
  For sor = 2 To 20 '20 helyett az utolsó sor kell
  For oszlop = 2 To 7 '7 helyett az ucsó oszlop sorszáma (A=1, B=2, C=3)
  If Cells(sor, oszlop).Value > 100 Then
  Range(Cells(sor, 2), Cells(sor, oszlop)).Select
  Selection.ClearContents
  End If
  Next
  Next
  End Sub

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