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

• #42549 Fferi50 Topikgazda szente #42548

  Új Válasz 2019-12-18 11:36:06 #42549

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

  Szia!
  Szerintem cellaformázással megoldható közel hasonlóra. Természetesen a cella egyesítéseket meg kell szüntetni.
  A beállítások - speciálisnál leveszed a rácsvonalak megjelenítését (bár úgy látom ez már most is így van).
  A csapatok nevét és ahol egyesített cellád volt beírod mindkét sorba a csapattag neve mellé. Az egyiket láthatatlanná teszed a betűformázással.
  A cella szegélyeket úgy alakítod ki, hogy a mostani egyesített cellák közé ne kerüljön semmi.
  A képeket hozzá tudod "ragasztani" a bal felső cellához, méretezni pedig a kettő magasságára lehet.
  Talán így jobban fog tetszeni.
  Üdv.

• #42547 Delila_1 veterán szente #42546

  Új Válasz 2019-12-18 09:50:24 #42547

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

  Legegyszerűbben úgy, hogy MEGSZÜNTETED az összevont cellákat. Ehhez csupán 1 plusz oszlop kell a C elé. A címsor állhat 2 sorból, az A és B összevonható az első sorban (ezzel nem dolgozol később), a B2 Csapattag 1, a C2 pedig Csapattag 2.

  Többször szerepelt itt a fórumon, hogy bár megengedi az Excel a cellák összevonását, de nem tudja maradéktalanul jól kezelni.

• #40061 ny.janos tag szente #40054

  Új Válasz 2019-01-25 13:14:00 #40061

  Ú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

  

  ny.janos

  tag

  válasz szente #40054 üzenetére

  Sajnos nekem túl zavaros (és talán hibákkal tarkított is) a csv fájl, így érdemben nem sokra mentem a próbálkozásaimmal.
  A html kódok eltüntetéséhez szerintem lehet azzal próbálkozni, hogy a fájl kiterjesztését átírod html-re, majd megnyitod böngészővel a fájlt, majd azt másolod vissza egy szövegfájlba. De ettől még nem oldódott meg a dolog, mert az egymás melletti oszlopokban szereplő adatokat vessző kellene elválassza egymástól, így viszont egy csomó bekezdésjel (enter) lesz a vessző helyett.
  Ennek az adathalmaznak a tisztítása az időkeretet figyelembe véve meghaladja a tudásomat. Persze biztosan ki lehet találni, mit mivel kell cserélni, de ez nekem most nem fér bele.

• #40053 ny.janos tag szente #40051

  Új Válasz 2019-01-25 10:23:15 #40053

  Ú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

  

  ny.janos

  tag

  válasz szente #40051 üzenetére

  Ezt én is tapasztaltam, mikor próbálkoztam, de számomra (mivel a html kódokban nem vagyok otthon) nem derül ki a csv fájlból, hogy minek hogy kellene kinéznie. Ha leírod / megmutatod minek hogy kellene kinéznie a végeredménynek, gyorsabban van esélyed érdemi válaszra. (Vagy nem ért rá senki más foglalkozni a problémáddal, vagy másokat is elrémisztett a csv fájl kinézete, ahogy részben engem is.)

• #40049 ny.janos tag szente #40048

  Új Válasz 2019-01-25 09:28:12 #40049

  Ú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

  

  ny.janos

  tag

  válasz szente #40048 üzenetére

  Szia!

  Próbáld meg az itt írtakat.

• #36100 Delila_1 veterán szente #36099

  Új Válasz 2017-09-08 13:09:47 #36100

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

  Másold modulba (lásd Téma összefoglaló) a lenti makrót.

  Sub Mi_Nincs()
Dim sor As Long, usor As Long, sor1 As Long
Dim WSKis As Worksheet, WSNagy As Worksheet

Set WSKis = Sheets("Kisker")
Set WSNagy = Sheets("Nagyker")

usor = WSNagy.Range("A" & Rows.Count).End(xlUp).Row
sor1 = WSKis.Range("A" & Rows.Count).End(xlUp).Row + 1

For sor = 2 To usor
If Application.WorksheetFunction.CountIf(WSKis.Columns(1), _
WSNagy.Cells(sor, 1)) = 0 Then
WSKis.Cells(sor1, "A") = WSNagy.Cells(sor, 1)
WSKis.Cells(sor1, "B") = WSNagy.Cells(sor, 2)
sor1 = sor1 + 1
End If
Next
End Sub

• #34824 Fferi50 Topikgazda szente #34823

  Új Válasz 2017-04-04 14:05:45 #34824

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

  Szia!

  Adatok - szövegből oszlopok - elválasztójel Tabulátor. Majd az így kapott cellákat sorokká transzponálod.

  Üdv.

• #32131 Fferi50 Topikgazda szente #32130

  Új Válasz 2016-07-21 11:53:09 #32131

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

  Szia!

  Próbáld ezt a képletet:
  =INT(A1/50)*50+HA(MARADÉK(A1;50)<=29;0;50)

  Ez a kerekítés szabályai szerint 29-ig, ill. 79-ig lefelé, ezután felfelé kerekíti 50-re és 100-ra az adott számot.

  Üdv.

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