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

• #47125 Delila_1 veterán MostaPista #47121

  Új Válasz 2021-07-19 09:09:49 #47125

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

  Írtam hozzá egy makrót.
  Két lap kell a füzetedben. Legyen Eredeti a lap neve, ahol az eredeti táblád van, és legyen egy új lap Konvertált névvel.

  Sub Konverzio()
    Dim usor As Long, sor As Long, idoIn As String, idoOut
    
    Sheets("Konvertált").Select
    Cells = ""
    Sheets("Eredeti").Range("A:J").Copy Sheets("Konvertált").Cells(1)
    Columns("A:A").Delete
    
     
    Range("A2:I2").Cut Destination:=Range("J1")
    Range("E1") = "Tim In 1"
    Range("F1") = "Tim In 2"
    Range("N1") = "Tim Out 1"
    Range("O1") = "Tim Out 2"
    usor = Range("A" & Rows.Count).End(xlUp).Row
    For sor = usor To 3 Step -2
        Range("A" & sor & ":I" & sor).Cut Destination:=Range("J" & sor - 1)
        Cells(sor, 1) = Cells(sor, 1) & ""
        idoIn = Cells(sor - 1, 5): idoOut = Cells(sor - 1, 14)
        Cells(sor - 1, "E") = Left(idoIn, InStr(idoIn, " ") - 1)
        Cells(sor - 1, "F") = Mid(idoIn, InStr(idoIn, " ") + 1, Len(idoIn))
        Cells(sor - 1, "N") = Left(idoOut, InStr(idoOut, " ") - 1)
        Cells(sor - 1, "O") = Mid(idoOut, InStr(idoOut, " ") + 1, Len(idoOut))
            
        Rows(sor).Delete Shift:=xlUp
    Next
    Rows(2).Delete Shift:=xlUp
    Range("B:B,D:D,G:H,K:K,M:M,Q:Q").Delete Shift:=xlToLeft
    Columns("A:K").EntireColumn.AutoFit
End Sub

• #47124 Fferi50 Topikgazda MostaPista #47121

  Új Válasz 2021-07-19 08:20:11 #47124

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

  Szia!
  Az oszlopok-sorok összefésüléséhez a javaslat:
  Ha van INDEX függvény a verziódban (remélem, mert az elég régi....)
  Beszúrsz egy új munkalapot:
  Az A1 cella képlete:
  =INDEX(Munka1!$A$1:$J$8;SOR();OSZLOP()+1)
  A B1 cella képlete:
  =INDEX(Munka1!$A$1:$J$8;SOR()+SOR(A1);OSZLOP())
  Természetesen a Munka1 helyére az adatokat tartalmazó munkalap nevét írod, a tartományt pedig hozzáigazítod a sajátodhoz. Próbának szerintem ennyi is elég. A két képletet együtt elhúzhatod jobbra. Utána pedig lefelé az egész sort. (Persze a SOR, OSZLOP függvények angol nevét - ROW, COLUMN - használd a képletben.)
  Ennek az még az előnye, hogy a formázás nem jön át, csak az érték. Így kiderül, hogy melyik érték milyen formátumú. (Mert gyanítom, hogy pl. az idő az szöveg formátum, akkor pedig bonyolult az újraformázása.)
  Ha sikerül, kérlek tegyél fel egy képet az eredményről.
  
  A többi problémádról beszéljünk utána, ha nem oldódik meg .
  Remélem, sikerül.
  Üdv.

• #47122 MostaPista tag MostaPista #47121

  Új Válasz 2021-07-19 02:27:26 #47122

  Ú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

  

  MostaPista

  tag

  válasz MostaPista #47121 üzenetére

  Kifelejtettem a masikat, itt lathato, ha lecsokkentem a cella szelesseget, az ID-kat azonnal szamkent jelzi ki, de az elozo kepen is latszik, hogy jobbra igazitja, tehat szamkent kezeli annak ellenere, hogy szovegmezot ir, ha az adott cellara raallok:

  

  Na, most mar nagyon holnap van, elteszem magam.;)

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