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

• #7026 Delila_1 veterán k.zola219 #7020

  Új Válasz 2010-04-29 10:17:42 #7026

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

  A #7022-ben írt
  Range(Cells(2, cv.Column), Cells(40, cv.Column)).Select
  sor helyesen:
  Range(Cells(1, cv.Column), Cells(40, cv.Column)).Select

• #7022 Delila_1 veterán k.zola219 #7020

  Új Válasz 2010-04-29 07:30:30 #7022

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

  Sub valami()
  Dim cv As Object
  
  For Each cv In Range("C2:N40")
  If IsEmpty(cv.Value) Then
  Range(Cells(2, cv.Column), Cells(40, cv.Column)).Select
  Selection.Delete Shift:=xlToLeft
  End If
  Next
  End Sub

  Kérlek, legközelebb tisztelj meg azzal, hogy hamarabb reagálsz a válaszomra. Múltkor 9 perc alatt kaptad meg a megoldást, és csak 8 napra rá írtál. Szívesen segítek, de talán elvárhatom, hogy ne egy bő hét múlva közöld, mire mentél vele. Ne kelljen utólag kikeresnem, mi is volt az eredeti kérdés.

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