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

• #39050 Fferi50 Topikgazda Teejay83 #39042

  Új Válasz 2018-09-03 15:19:01 #39050

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

  Szia!

  Ennyit kell módosítani lcdtv megoldásán:

  For i = 0 To UBound(Orig)
if i=0 then Cells(Rows.Count, "D").End(xlUp).Offset(1) = c
Cells(Rows.Count, "D").End(xlUp).Offset(, 1) = Orig(i)
Next i

  Üdv.

• #39044 Delila_1 veterán Teejay83 #39042

  Új Válasz 2018-09-03 12:57:19 #39044

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

  Akkor javaslom lcdtv megoldását.

• #39036 Delila_1 veterán Teejay83 #39033

  Új Válasz 2018-09-03 11:54:40 #39036

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

  Ha csak 1 ilyen sorod van, az Adatok | Szövegből oszlopok menüponttal egymás mellé írathatod az egyes tagokat, majd a másolás, irányított beillesztés, transzformálva menüponttal egymás alá rendezheted a szétválasztott adatokat.

  Több sornál futtathatod a lenti makrót.

  Sub trans()
Dim sor As Long, usor As Long, ide As Long
Dim szoveg As String, hossz As Integer

usor = Range("A" & Rows.Count).End(xlUp).Row
ide = 1
For sor = 1 To usor
szoveg = Cells(sor, 1)
Do While InStr(szoveg, ",") > 0
hossz = InStr(szoveg, ",")
Cells(ide, "B") = Left(szoveg, hossz - 1)
szoveg = Mid(szoveg, hossz + 1, 100)
ide = ide + 1
Loop
Cells(ide, "B") = szoveg
ide = ide + 1
Next
End Sub

• #39034 lcdtv tag Teejay83 #39033

  Új Válasz 2018-09-03 09:36:36 #39034

  Ú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

  

  lcdtv

  tag

  válasz Teejay83 #39033 üzenetére

  Nekem is kellett ilyen de kicsit másképp. Szerintem tudod használni. Ez azt csinálja hogy pl. A oszlop az mindig egy fix szöveg a B oszlopba vannak a vesszővel szeparált szövegek, és a D oszlopba szétszedi őket egymás alá de a fix szöveggel együtt.
  Sub vesszovel_szetszedett()
Dim rng As Range, Lstrw As Long, c As Range
Dim SpltRng As Range
Dim i As Integer
Dim Orig As Variant
Dim txt As String

Lstrw = Cells(Rows.Count, "A").End(xlUp).Row
Set rng = Range("A2:A" & Lstrw)

For Each c In rng.Cells
Set SpltRng = c.Offset(, 1)
txt = SpltRng.Value
Orig = Split(txt, ",")

For i = 0 To UBound(Orig)
Cells(Rows.Count, "D").End(xlUp).Offset(1) = c
Cells(Rows.Count, "D").End(xlUp).Offset(, 1) = Orig(i)
Next i

Next c

End Sub
  A kód elindítása után így néz ki.
  

• #38858 lappy őstag Teejay83 #38856

  Új Válasz 2018-08-15 10:30:18 #38858

  Ú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

  

  lappy

  őstag

  válasz Teejay83 #38856 üzenetére

  Ez megoldás lehet a számodra

• #38850 GreenIT tag Teejay83 #38841

  Új Válasz 2018-08-14 17:14:16 #38850

  Ú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

  

  GreenIT

  tag

  válasz Teejay83 #38841 üzenetére

  Ugy erted, hogy a C oszlop cellaiban latni akarod a B es A oszlopok cellaiban levo datum-ido kulonbseget orara kerekitve?

• #38848 lappy őstag Teejay83 #38841

  Új Válasz 2018-08-14 16:50:10 #38848

  Ú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

  

  lappy

  őstag

  válasz Teejay83 #38841 üzenetére

  Azert lenne egy kérdésem. Meg lehet oldani de tudni kellene hogy a mikor elkezdi az időt akkor meddig van munkanap. Illetve mikor kezdődik a munkaidő, mert az oké hogy napi 8:20 dolgozik, de így nem lehet kiszamolni.
  Vagy ez a 8:20 ez 8-tól este 20 - ig tart?

• #37295 Delila_1 veterán Teejay83 #37291

  Új Válasz 2018-02-08 13:55:39 #37295

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

  A Munka2 lap A oszlopába felviszed a 30 helységnevet, helyesen.

  A példámban a hosszú címek az egyik lap A oszlopában vannak. Ezen a lapon egy üres oszlopba beírod a képletet

  =HA(DARABTELI(Munka2!A:A;BAL(A1;SZÖVEG.KERES(",";A1)-1))=0;"Hiba";"Rendben")

  és lemásolod a többi címed mellé.

• #37294 Fferi50 Topikgazda Teejay83 #37293

  Új Válasz 2018-02-08 13:55:02 #37294

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

  Szia!

  Táblában az Fkeres függvénnyel vagy a Hol.Van függvénnyel tudsz keresni.

  A cella első részét a SZÖVEG.KERES és a BAL függvényekkel kapod meg.
  Pl.
  =Fkeres(Bal(A2;SZÖVEG.KERES(",";"A2"));Táblázatod;1;0)

  Üdv.

• #37292 Fferi50 Topikgazda Teejay83 #37291

  Új Válasz 2018-02-08 13:35:47 #37292

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

  Szia!

  Szerinted honnan kellene az Excelnek tudnia, hogy hibás a település neve? Mivel nincs beépített helységnévtár benne.

  Üdv.

• #35523 Delila_1 veterán Teejay83 #35518

  Új Válasz 2017-06-22 14:15:45 #35523

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

  Már csak a vicc kedvéért

  =JOBB(BAL(A1;HOSSZ(A1)-1);HOSSZ(BAL(A1;HOSSZ(A1)-1))-SZÖVEG.TALÁL("(";BAL(A1;HOSSZ(A1)-1)))

  Ennél bonyolultabban is össze lehetne hozni.

• #35522 sztanozs veterán Teejay83 #35518

  Új Válasz 2017-06-22 11:43:28 #35522

  Ú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

  

  sztanozs

  veterán

  válasz Teejay83 #35518 üzenetére

  Vagy ha fixen a végén van:
  =MID(MID(A1,1,LEN(A1)-1),FIND("(",A1)+1,999)

• #35520 DeFranco nagyúr Teejay83 #35518

  Új Válasz 2017-06-22 10:28:25 #35520

  Ú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

  

  DeFranco

  nagyúr

  válasz Teejay83 #35518 üzenetére

  SZÖVEG.TALÁL-lal megkeresteted a zárójeleket rendre, és a KÖZÉP függvénnyel kiszeded ami közötte van.

  

• #35519 kispx addikt Teejay83 #35518

  Új Válasz 2017-06-22 10:28:17 #35519

  Ú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

  

  kispx

  addikt

  válasz Teejay83 #35518 üzenetére

  =KÖZÉP(A1;SZÖVEG.KERES("(";A1)+1;SZÖVEG.KERES(")";A1)-SZÖVEG.KERES("(";A1)-1)

• #23780 Delila_1 veterán Teejay83 #23773

  Új Válasz 2014-10-17 08:47:52 #23780

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

  Szívesen.

• #23756 Delila_1 veterán Teejay83 #23755

  Új Válasz 2014-10-16 15:28:21 #23756

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

  Nem tudom, melyek a "hasznos" értékek.
  Két oszlop tartalmát több módon össze lehet hasonlítani. A képen ezek közül 1-et látsz. A második oszlop azt mutatja, hogy a mellette balra lévő szám melyik sorban található az E oszlopban, az F pedig a mellette lévő szám előfordulási helyét adja az A oszlopban.

  

  Használhatod még a DARABTELI függvényt, vagy makrót.

  Az A és E oszlopra feltételes formázást adtam. A-ra: =HOL.VAN(A2;E:E;0)>0, E-re a fordítottja.

• #23180 Delila_1 veterán Teejay83 #23179

  Új Válasz 2014-09-09 12:43:40 #23180

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

  Mindig ilyen apróságon szoktunk elbukni...

• #23174 Delila_1 veterán Teejay83 #23173

  Új Válasz 2014-09-09 12:00:20 #23174

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

  Kipróbáltam, nem hibázik.

  Kijelölöd a tartományt, Korrektúra | Változások | Tartományok szerkesztésének engedélyezése.
  Megadás, itt módosíthatod a neve (címet), a hivatkozásba bekerül a tartomány címe. Megadod a jelszót, OK.

  Jöhet a következő tartomány engedélyezése, mint fent, végül a Lapvédelem.

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