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

• #7028 Delila_1 veterán k.zola219 #7027

  Új Válasz 2010-04-30 08:52:44 #7028

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

  Ímé:

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

• #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.

• #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