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

• VGYke addikt

  2012-02-21 18:51:11 #12957

  Új Válasz

  Ú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

  

  VGYke

  addikt

  Sziasztok! Írtam egy rövid makrót. A lényege, a G oszlop celláiban "balba szöveg, számok, blabla szöveg" van és ennek minden variációja és ebből kell kibányászni csak a számokat, átalakítva bizonyos formátumra, majd beírni H oszlop adott sorába.
  Kb. így néz ki a magró (rendesen végzi a dolgát):
  Do
  C = ""
  Szam = ""
  I = I + 1
  C = Cells(I, 7)
  For J = 1 To 60
  Nev = Mid(C, J, 1)
  If Not IsNumeric(Nev) Then
  Nev = ""
  End If
  Szam = Szam + Nev
  Nev = ""
  Next J
  Aszam = Left(Szam, 8) + "-" + Mid(Szam, 9, 1) + "-" + Mid(Szam, 10, 2)
  Cells(I, 8) = Aszam
  Loop Until Cells(I + 1, 7) = Empty
  Viszont ez a makró, csak G-ből olvas (Cells(...,7)) és H-ba ír (Cells(...8).
  Na de ha az eredeti táblából valaki kitöröl, vagy hozzáad egy oszlopot, rossz helyről fog olvasni és írni.
  Van erre valami megoldás? Tehát 7 és 8 oszlop érték egy változó legyen, és ha törölnek egy oszlopot, ez az érték 6,7, stb.

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