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

• #47368 Fferi50 Topikgazda Vizes Tomi #47366

  Új Válasz 2021-09-13 15:36:59 #47368

  Ú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 Vizes Tomi #47366 üzenetére

  Szia!
  Megmutatnád milyen függvényekkel próbálkoztál és a feltételes formázásnál melyik módot választottad?
  Üdv.

• #18737 Delila_1 veterán Vizes Tomi #18736

  Új Válasz 2013-08-12 15:17:17 #18737

  Ú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 Vizes Tomi #18736 üzenetére

  Melyik verziót használod?
  Készítek egy füzetet, amibe majd átmásolod az adataidat. Abban már az is benne lesz, hogy a látható lapon vihetsz fel új sort a rejtettre.
  Add meg a lapok általad használt nevét is.

  Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.

• #18735 Delila_1 veterán Vizes Tomi #18734

  Új Válasz 2013-08-12 11:56:52 #18735

  Ú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 Vizes Tomi #18734 üzenetére

  Szia!

  A Látható lap fülén jobb klikk, Kód megjelenítése. Ezzel bejutottál a VBA szerkesztőjébe. Látod, hogy bal oldalon a lapok felsorolásánál a Látható lapod van kijelölve. A jobb oldali üres területre másold az első makrót.

  Bal oldalon a füzeted nevén állva az Insert menü Module almenüjére kattints, kapsz egy új modult, aminek Module...n lesz a neve. Erre kattintva jobb oldalon ismét üres területet kapsz, ide másold a második makrót.

  Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.

• #18725 Delila_1 veterán Vizes Tomi #18722

  Új Válasz 2013-08-09 18:20:28 #18725

  Ú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 Vizes Tomi #18722 üzenetére

  A két lapnak Rejtett, és Látható nevet adtam. Az első makrót a Látható laphoz rendeld. Ezen a lapon az A1 cellába beírod a keresett azonosítót.

  Private Sub Worksheet_Change(ByVal Target As Range)
  Rows("5:10000").ClearContents
  If Target.Address = "$A$1" Then
  Rows("5:10000").ClearContents
  Listaz Target
  End If
  End Sub

  A második makró, amit modulba másolsz be, a Látható lapra átmásolja a kritériumnak megfelelő sorokat, az A5 cellától kezdve. A 4. sorba beírhatod az oszlopok címét (Azonosító ... Összeg)

  Sub Listaz(krit)
  Dim usor As Long, Rng As Range
  Application.EnableEvents = False
  
  Sheets("Rejtett").Select
  Selection.AutoFilter Field:=1, Criteria1:=krit
  usor = Range("A1").End(xlDown).Row
  Set Rng = Range("A2:D" & usor).SpecialCells(xlCellTypeVisible)
  Rng.Copy Sheets("Látható").Range("A5")
  
  Sheets("Látható").Select
  Application.EnableEvents = True
  End Sub

  Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.

• #18712 Delila_1 veterán Vizes Tomi #18711

  Új Válasz 2013-08-06 16:55:00 #18712

  Ú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 Vizes Tomi #18711 üzenetére

  Nincs nit.

  Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.

• #18710 Delila_1 veterán Vizes Tomi #18709

  Új Válasz 2013-08-06 16:45:58 #18710

  Ú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 Vizes Tomi #18709 üzenetére

  A TNÉV függvény pontosan ezt csinálja.

  Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.

• #16409 lappy őstag Vizes Tomi #16408

  Új Válasz 2013-01-21 16:01:48 #16409

  Ú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 Vizes Tomi #16408 üzenetére

  Szia!
  Akkor röviden:
  az excel beállítások menüben kiválasztod a testreszabást azon belül is a menüszalagon nem szereplő parancsok.
  majd megkeresed az űrlapok ikon és felvétel a gyorselérési eszköztárba.
  ezután felveszel mondjuk A1-D1 cellákba űrlapneveket.
  majd A2 re álva megnyomod az űrlap vezérlő ikon és lehet bevinni az űrlapokat.
  ezeket meg mondjuk a kollegák átküldik neked és te összemásolod vagy egy kis macro azt is elvégzi.

  Bámulatos hol tart már a tudomány!

• #16403 lappy őstag Vizes Tomi #16401

  Új Válasz 2013-01-21 12:45:03 #16403

  Ú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 Vizes Tomi #16401 üzenetére

  Szia!
  [link]
  ezt nézd át űrlapot hogy kell készíteni.

  Bámulatos hol tart már a tudomány!

• #16338 lappy őstag Vizes Tomi #16337

  Új Válasz 2013-01-18 15:55:10 #16338

  Ú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 Vizes Tomi #16337 üzenetére

  Szia!
  Azt a sablonvarázslót 2007 ben is kipróbáltad már?! Esetleg egy próbát megér!

  Bámulatos hol tart már a tudomány!

• #14989 Fire/SOUL/CD félisten Vizes Tomi #14988

  Új Válasz 2012-09-19 11:34:58 #14989

  Ú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

  

  Fire/SOUL/CD

  félisten

  válasz Vizes Tomi #14988 üzenetére

  Több munkalap van kijelölve. Kattints valamelyik munkalap fülön jobb egérrel és csoport szétbontása.

  [ Szerkesztve ]

  Mindenki tudja, hogy bizonyos dolgokat nem lehet megvalósítani, mígnem jön valaki, aki erről nem tud, és megvalósítja. (Albert Einstein)

• #14987 lappy őstag Vizes Tomi #14986

  Új Válasz 2012-09-19 10:15:18 #14987

  Ú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 Vizes Tomi #14986 üzenetére

  egy képet tudsz mutatni róla!

  Bámulatos hol tart már a tudomány!

• #13196 Delila_1 veterán Vizes Tomi #13195

  Új Válasz 2012-03-12 15:50:36 #13196

  Ú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 Vizes Tomi #13195 üzenetére

  Szívesen.

  Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.

• #13194 Vizes Tomi tag Vizes Tomi #13192

  Új Válasz 2012-03-12 14:49:11 #13194

  Ú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

  

  Vizes Tomi

  tag

  válasz Vizes Tomi #13192 üzenetére

  Mégsem tudom elrejteni a formázott sorokat.

• #13193 Delila_1 veterán Vizes Tomi #13192

  Új Válasz 2012-03-12 13:58:33 #13193

  Ú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 Vizes Tomi #13192 üzenetére

  Szűröd szín szerint, a Nincs kitöltés paraméterrel, ezzel elrejted a színezett sorokat. A makró futtatása után megszünteted a szűrést.

  Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.

• #13190 poffsoft veterán Vizes Tomi #13188

  Új Válasz 2012-03-12 12:57:59 #13190

  Ú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

  

  poffsoft

  veterán

  válasz Vizes Tomi #13188 üzenetére

  .
  bocs, csak nekem lett volna macerás

  [ Szerkesztve ]

  [ Szerkesztve ]

• #13189 Delila_1 veterán Vizes Tomi #13188

  Új Válasz 2012-03-12 12:52:07 #13189

  Ú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 Vizes Tomi #13188 üzenetére

  Szűrd a C oszlopot úgy, hogy a színezett sorok rejtettek legyenek. A makró az F oszlopba beírja a két formázott sor közötti, E oszlopban található számokat.

  Ha nem jó az F oszlop, a két, csillaggal jelölt sorban a 6-ot írd át egy üres oszlopod sorszámára.

  Sub osszegek()
  Dim sor As Long, ossz
  ossz = 0
  For sor = 2 To ActiveSheet.UsedRange.Rows.Count
  If Rows(sor).Hidden = True Then
  Cells(sor, 6) = 0 '******
  Cells(sor - 1, 6) = ossz '******
  ossz = 0
  Else
  ossz = ossz + Cells(sor, 5)
  End If
  Next
  End Sub

  Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.

• #13138 Delila_1 veterán Vizes Tomi #13127

  Új Válasz 2012-03-07 07:31:22 #13138

  Ú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 Vizes Tomi #13127 üzenetére

  Épp tegnap írtam egy fórumtársunknak erre egy makrót. Két helyen javíts benne.
  Az egyik
  a cserélendő terület helye: ter = "$E$5: I1407",
  a másik az
  If IsNumeric(Mid(ertek, b%, 1)) Or Mid(ertek, b%, 1) = Chr(44) Then _ sorban a Chr(44)-ben a 44. Ott vessző volt a tizedes jel, de érdekes módon nem fogadta el
  Mid(ertek, b%, 1) ="," módon. Ha nincs tizedes tört az átalakítandó számok között, az
  Or Mid(ertek, b%, 1) = Chr(44) részt hagyd ki.

  Az ASCII értéket úgy határozhatod meg, hogy a szövegrészben kijelölöd a karaktert, másolod, és egy másik cellába beilleszted. Erre az új cellára hivatkozva a =KÓD(cella) megadja az értéket. Hosszabb karaktersorozat esetén az első karakter kódja a visszatérési érték.

  Sub Szam()
  Application.ScreenUpdating = False
  Application.Calculation = xlCalculationManual
  
  Dim ter As String, sz As Variant, b%, uj$, ertek
  ter = "$E$5:I1407"
  For Each sz In Range(ter)
  ertek = sz
  If ertek <> "" Then
  uj$ = ""
  For b% = 1 To Len(sz)
  If IsNumeric(Mid(ertek, b%, 1)) Or Mid(ertek, b%, 1) = Chr(44) Then _
  uj$ = uj$ & Mid(ertek, b%, 1)
  Next
  Range(sz.Address) = uj$ * 1
  End If
  Next
  
  Application.ScreenUpdating = True
  Application.Calculation = xlCalculationAutomatic
  MsgBox "Kész"
  End Sub

  Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.

• #13137 lapa veterán Vizes Tomi #13135

  Új Válasz 2012-03-06 20:16:23 #13137

  Ú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

  

  lapa

  veterán

  válasz Vizes Tomi #13135 üzenetére

  kimásoltad a szóköznek látszó dolgot, vagy beírtál szóközt?

  ha f2-vel belemész a cellába is ott van a szóköznek látszó dolog?

• #13136 cousin333 addikt Vizes Tomi #13127

  Új Válasz 2012-03-06 20:15:04 #13136

  Ú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

  

  cousin333

  addikt

  válasz Vizes Tomi #13127 üzenetére

  Üdv!

  Esetleg részleteiben vagy egészében nem tudnád elérhetővé tenni a fájlt? Csak mert akkor mindenki ki tudná próbálni a saját megoldását, és nem telne el olyan sok idő két javaslat között...

  ui: az eredeti csv fájl, vagy annak részlete lenne a legjobb.

  [ Szerkesztve ]

  "We spared no expense"

• #13133 Vizes Tomi tag Vizes Tomi #13131

  Új Válasz 2012-03-06 19:24:48 #13133

  Ú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

  

  Vizes Tomi

  tag

  válasz Vizes Tomi #13131 üzenetére

  Visszaolvastam egy kicsit egy kollégának volt hasonló gondja megcsináltam amit Delila_1 írt
  sajna nekem sem működött . Pedig Delila_1 a szememben egy nagy excel ász.
  ne nem offolok tovább

• #13132 lapa veterán Vizes Tomi #13127

  Új Válasz 2012-03-06 19:17:22 #13132

  Ú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

  

  lapa

  veterán

  válasz Vizes Tomi #13127 üzenetére

  f2 --> szóköznek látszó izé kijelöl --> ctrl + c --> oszlop kijelöl --> ctrl + h --> "mit cseréljen" --> ctrl + v --> alt + a --> bódog.

• #13130 Vizes Tomi tag Vizes Tomi #13128

  Új Válasz 2012-03-06 19:12:21 #13130

  Ú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

  

  Vizes Tomi

  tag

  válasz Vizes Tomi #13128 üzenetére

  A táblázat felett elmélázva rájöttem, hogy végül is az egész táblázatom nem ér semmit ebben a formában, tehát tartoztam az excel ördögnek egy kis küszködéssel.
  Az ötlet továbbra is kell mert a táblázatot újragyártatom a megfelelő szakikkal, és akkor már gyorsan le tudnám nyomni azt ami nekem kell.

  Köszönöm

  Sziasztok

• #13129 Amice csendes tag Vizes Tomi #13127

  Új Válasz 2012-03-06 18:56:29 #13129

  Ú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

  

  Amice

  csendes tag

  válasz Vizes Tomi #13127 üzenetére

  Üdv!
  Ha Cella formázás/Szám-nál az Ezres csoport elől kiszeded a pipát, nem javul a helyzet? (elötte kijelölve az egész oszlopot)

  [ Szerkesztve ]

• #13128 Vizes Tomi tag Vizes Tomi #13127

  Új Válasz 2012-03-06 18:47:17 #13128

  Ú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

  

  Vizes Tomi

  tag

  válasz Vizes Tomi #13127 üzenetére

  Itt vagyok megint végül is az ötlet működik egy darabig mert az összefűzött számokat szövegnek írja, de egy másolás beillesztés után már enged átalakítani, csak az a bajom, hogy nőnek a számok , így nem tudom végigrántani az egész táblázaton. Na mind 1 már ez is több m int a semmi

• #12552 m.zmrzlina senior tag Vizes Tomi #12551

  Új Válasz 2012-01-10 12:17:26 #12552

  Ú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

  

  m.zmrzlina

  senior tag

  válasz Vizes Tomi #12551 üzenetére

  Nincs mit.

• #12548 m.zmrzlina senior tag Vizes Tomi #12546

  Új Válasz 2012-01-09 16:35:13 #12548

  Ú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

  

  m.zmrzlina

  senior tag

  válasz Vizes Tomi #12546 üzenetére

  Esetleg ha az FKERES()-t a HA()-val kombinálod valahogy így:

  =HA(FKERES(F1;$A$1:$D$12;2;0)="";"";FKERES(F1;$A$1:$D$12;2;0))

• #12547 m.zmrzlina senior tag Vizes Tomi #12546

  Új Válasz 2012-01-09 15:59:25 #12547

  Ú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

  

  m.zmrzlina

  senior tag

  válasz Vizes Tomi #12546 üzenetére

  Mi alapján kell a másik táblázatot szervezni?

• #10138 Fire/SOUL/CD félisten Vizes Tomi #10136

  Új Válasz 2011-04-21 16:08:51 #10138

  Ú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

  

  Fire/SOUL/CD

  félisten

  válasz Vizes Tomi #10136 üzenetére

  Így látatlanba nehéz lesz, de fussunk neki

  1. A SZUM cella nem "[ó]:pp" formátumú
  2. A percdíjak nem szám formátumú
  3. rosszul írtad be a képletet (szerencsésebb lenne kimásolni és beilleszteni)

  Ha meg még mindig gond van, akkor küld el a táblát (ha publikus), mert Nálam nincs gond vele

  Mindenki tudja, hogy bizonyos dolgokat nem lehet megvalósítani, mígnem jön valaki, aki erről nem tud, és megvalósítja. (Albert Einstein)

• #10137 Delila_1 veterán Vizes Tomi #10136

  Új Válasz 2011-04-21 16:06:48 #10137

  Ú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 Vizes Tomi #10136 üzenetére

  A SZUM függvény simán összeadja a két időpontot, csak az összegző cella is olyan formátumú legyen, mint az összeadandók (ó:pp:mm).

  A felszorzás, ha a 14,30 a H1 cellában van, az idő pedig az E1-ben:
  =ÓRA(E1)*60*H1+PERC(E1)*H1+MPERC(E1)*H1/60 , ez 2620 Ft.

  Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.

• #10135 Fire/SOUL/CD félisten Vizes Tomi #10133

  Új Válasz 2011-04-21 15:20:20 #10135

  Ú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

  

  Fire/SOUL/CD

  félisten

  válasz Vizes Tomi #10133 üzenetére

  Így formázd a cellákat, akkor a SZUM is simán összeadja. Ha pl B1-ben van a SZUM(a telefonszámláitok összesített értéke), C1-ben meg a percdíjak, akkor a képlet

  =((BAL(SZÖVEG(B1;"[ó]:pp");SZÖVEG.KERES(":";SZÖVEG(B1;"[ó]:pp");1)-1)*60)+(PERCEK(B1)))*C1

  [ Szerkesztve ]

  Mindenki tudja, hogy bizonyos dolgokat nem lehet megvalósítani, mígnem jön valaki, aki erről nem tud, és megvalósítja. (Albert Einstein)

• #10130 Vizes Tomi tag Vizes Tomi #10129

  Új Válasz 2011-04-21 14:17:46 #10130

  Ú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

  

  Vizes Tomi

  tag

  válasz Vizes Tomi #10129 üzenetére

  illetve még egy probléma ezt az időtartamot 3:03:13 úgy összeszorozni egy egységárral 14,3 Ft, hogy a valós összeget kapjak.
  jelenleg ez 1,82
  Köszönettel:

  VT

  [ Szerkesztve ]

• #10114 Delila_1 veterán Vizes Tomi #10113

  Új Válasz 2011-04-19 15:50:59 #10114

  Ú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 Vizes Tomi #10113 üzenetére

  Küldd el a fájlt, így nehéz követni.

  A J1 megfelelője a cells(1,10). Itt előbb a sort, majd az oszlop sorszámát kell megadni.

  [ Szerkesztve ]

  Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.

• #10111 Delila_1 veterán Vizes Tomi #10108

  Új Válasz 2011-04-19 13:54:54 #10111

  Ú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 Vizes Tomi #10108 üzenetére

  Cells(cseresor%, 5) = PercDij! helyett Cells(cseresor%, 6) = PercDij! legyen, mert a hatodik (F) oszlopba kell beírni a jelenlegi percdíjat.

  A keresendő szöveg is más. A Szoveg$ = "Hálózaton belüli hívások" sorban írd át arra a szövegre, amit a számlán találsz.

  Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.

• #10103 Delila_1 veterán Vizes Tomi #10102

  Új Válasz 2011-04-19 11:25:03 #10103

  Ú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 Vizes Tomi #10102 üzenetére

  A Cells(1,10) helyére írd be a makróban. PercDij=16
  Akkor a J1 cellába nem kell beírnod.

  Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.

• #10098 Delila_1 veterán Vizes Tomi #10097

  Új Válasz 2011-04-18 16:39:57 #10098

  Ú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 Vizes Tomi #10097 üzenetére

  Feltételezve (mivel nem írtad meg), hogy a "Hálózaton belüli hívások" szöveg az A oszlopban szerepel, és a hozzá tartozó egységár az E oszlopban van a kép szerint, itt a makró, ami beírja a J1 cellában általad megadott percdíjat a sárga hátterű cellákba:

  Sub PercDij()
  Dim Szoveg$, cseresor%, PercDij!
  Szoveg$ = "Hálózaton belüli hívások"
  PercDij = Cells(1, 10) 'ide fixen is beírhatod az összeget
  
  cseresor% = Range("A:A").Find(Szoveg$).Row + 1
  
  Do While Cells(cseresor%, 1) = ""
  Cells(cseresor%, 5) = PercDij!
  cseresor% = cseresor% + 1
  Loop
  End Sub

  

  Ha az adatok a "Hálózaton belüli hívások" címmel azonos sorban kezdődnek, akkor a
  cseresor% = Range("A:A").Find(Szoveg$).Row + 1 sor végéről töröld a +1 -et.

  [ Szerkesztve ]

  Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.

• #9333 Delila_1 veterán Vizes Tomi #9332

  Új Válasz 2011-02-04 17:17:29 #9333

  Ú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 Vizes Tomi #9332 üzenetére

  Szívesen.

  Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.

• #9330 Delila_1 veterán Vizes Tomi #9329

  Új Válasz 2011-02-04 13:03:03 #9330

  Ú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 Vizes Tomi #9329 üzenetére

  A tagolásra gondolsz?

  Ha igen, a teljes sorokat jelöld ki, Ctrl+c, másik lapon Ctrl+v.

  Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.

• #8840 Delila_1 veterán Vizes Tomi #8839

  Új Válasz 2010-12-09 16:03:59 #8840

  Ú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 Vizes Tomi #8839 üzenetére

  Makróval könnyedén megoldható, de ahhoz tudni kell a füzetek, lapok nevét, és a lapok felépítését.
  Írd meg, melyik oszlopban mi található, minek a hatására (sor, oszlop) mi változzon (itt is sor, oszlop).
  Az lenne a legjobb megoldás, ha kitennéd elérhető helyre a füzeteket, akár hamis adatokkal, és pontosan megjelölnéd bennük a feladatot.

  Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.

• #8838 m.zmrzlina senior tag Vizes Tomi #8837

  Új Válasz 2010-12-09 12:59:09 #8838

  Ú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

  

  m.zmrzlina

  senior tag

  válasz Vizes Tomi #8837 üzenetére

  Az nem megoldás, hogy a másik munkalapról valamilyen trükkel átlopjuk a határérték adatokat a mért értékek munkalapjára? Mondjuk valahová a legutolsó néhány oszlop legvégére.

  Mekkorák a tartományok amiket használsz?

  [ Szerkesztve ]

• #8832 Delila_1 veterán Vizes Tomi #8831

  Új Válasz 2010-12-08 16:03:15 #8832

  Ú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 Vizes Tomi #8831 üzenetére

  A 8800-as kérdésig olvass vissza, feltételes formázással kapcsolatos válaszokat, megoldásokat találsz.

  Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.

• #8617 Delila_1 veterán Vizes Tomi #8616

  Új Válasz 2010-11-10 16:06:53 #8617

  Ú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 Vizes Tomi #8616 üzenetére

  Nincs mit.

  Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.

• #8615 Delila_1 veterán Vizes Tomi #8613

  Új Válasz 2010-11-10 15:39:46 #8615

  Ú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 Vizes Tomi #8613 üzenetére

  Vegyél fel egy új oszlopot, ahova a HÓNAP függvény segítségével beíratod az A oszlop hónapjának a számát, és erre az oszlopra hivatkozz a SZUMHATÖBB-bel.

  Szóba jöhet még a SZOZRATÖSSZEG függvény is a megoldáshoz.

  Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.

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