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

• #52379 Fferi50 Topikgazda the radish #52377

  Új Válasz 2024-03-29 09:59:39 #52379

  Ú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

  

  Fferi50

  Topikgazda

  válasz the radish #52377 üzenetére

  Szia!
  Még annyit az előző makrókhoz, hogy a 4 jegyű irányítószám + vessző + egy szóköz miatt az első makróban Mid(cl.value,7) kell, a második makróban pedig Replace(A1,1,6,"""").
  Sajnos nem számoltam utána, közben jutott eszembe.
  Üdv.

• #52378 Fferi50 Topikgazda the radish #52377

  Új Válasz 2024-03-29 09:14:49 #52378

  Ú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

  

  Fferi50

  Topikgazda

  válasz the radish #52377 üzenetére

  Szia!
  Nincs mese, akkor bonyolultabb egy nagyon picit:
  Sub cserelo1()
Dim cl As Range
For Each cl In Range("A1:A30000")
    cl.Value = Mid(cl.Value, 5)
Next
End Sub
  Sajnos végig kell menni cellánként.
  Vagy segédoszlop kell hozzá (itt a B oszlop):
  Sub cserelo2()
With Range("B1:B30000")
   .Formula = "= Replace(A1, 1, 5, """")"
   .Offset(0, -1).Value = .Value
   .Clear
End With
'B helyére írd a saját segédoszlopod. A makró után a segédoszlop üres lesz.
End Sub
  Üdv.

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