Aktív témák

• #351 matekmatika tag MartinIsti #350

  2006-06-02 23:40:11 #351

  Ö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

  

  matekmatika

  tag

  válasz MartinIsti #350 üzenetére

  Próbálom felfogni amit írtál, de nem egészen sikerül Szóval azokat a sorokat törölnéd ahol mindhárom oszlopban ugyanaz az érték van? Mert ha igen akkor:
  
  For i = 1 to x {x:ahány sorod van}
  If Cells(i,1)=Cells(i,2) And Cells(i,1)=Cells(i,3) Then {feltételezve, hogy az 1.,2.,3. oszlop}
  Rows(i,i).Select
  Selection.Delete Shift:=xlUp
  End If
  Next i
  Ha nem erre gondoltál fejtsd ki mégegyszer
  
  A másik:
  Cells.Find(What:=''keresett karaktersor'', After:=ActiveCell, LookIn:=xlFormulas, LookAt:= _
  xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False _
  , SearchFormat:=False).Activate
  
  A ''keresett karaktersor'' helyére beírt (változó is lehet, tehát mondjuk egy másik cella tartalma, amihez hasonlítani szeretnéd)karaktersorozat a keresési érték, és ha talál a munkalapon ilyen sorozatot akkor ebben az esetben kijelöli. De tehetsz vele mást is, mondjuk törölheted
  
  [Szerkesztve]

Aktív témák