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

• #23892 Dr. Romano veterán m.zmrzlina #23888

  Új Válasz 2014-10-22 18:52:00 #23892

  Ú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

  

  Dr. Romano

  veterán

  válasz m.zmrzlina #23888 üzenetére

  Végül elvileg ez a nyers képlet hozzá:
  =DARABTELI(B$1: B$9;A1)>0

  Most már nyomon vagyok. Istenek vagytok, kösz srácok a segítséget!!

• #23889 Dr. Romano veterán m.zmrzlina #23888

  Új Válasz 2014-10-22 18:44:01 #23889

  Ú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

  

  Dr. Romano

  veterán

  válasz m.zmrzlina #23888 üzenetére

  Persze, a sor értékeket átírtam, azzal nem volt gond (szerencsére nem vagyok rendőr ) Lehet az a probléma hogy ez office 2007?

  slashing
  Köszi neked is, átgondoltam, legvégső esetben a tiéd is jó lehet...

• #23883 Dr. Romano veterán m.zmrzlina #23882

  Új Válasz 2014-10-22 18:03:55 #23883

  Ú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

  

  Dr. Romano

  veterán

  válasz m.zmrzlina #23882 üzenetére

  Szia!

  Megpróbáltam, de béna lehetek mert nem sikerült

  Megpróbálnád légyszi ezen a teszten és tudnád linkelni a képletet? Lényeg hogy csak azokat az értékeket jelölje meg ami mindkét oszlopban szerepel. Előre is köszönöm!

• #23872 Delila_1 veterán m.zmrzlina #23871

  Új Válasz 2014-10-22 14:20:26 #23872

  Ú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 m.zmrzlina #23871 üzenetére

  Közben megszületett a páros számok kigyűjtése (egyik oszlopba), a páratlanokhoz ebben a makróban át kell írni az IsEven-eket IsOdd-ra.

  Function ParosCsakSzam(cella As Range)
  Dim betu As Integer, szam As Integer, szoveg As String
  szoveg = Trim(cella)
  
  If IsNumeric(szoveg) Then
  If WorksheetFunction.IsEven(szoveg) Then
  ParosCsakSzam = szoveg
  Exit Function
  Else
  ParosCsakSzam = ""
  Exit Function
  End If
  Else
  For betu = 1 To Len(szoveg)
  If IsNumeric(Mid(szoveg, betu, 1)) Then
  szam = szam & Mid(szoveg, betu, 1)
  ElseIf Mid(szoveg, betu, 1) = "/" And IsNumeric(Mid(szoveg, betu + 1, 1)) Then
  If WorksheetFunction.IsEven(Left(szoveg, InStr(szoveg, "/") - 1) * 1) Then
  ParosCsakSzam = szoveg
  Exit Function
  End If
  ElseIf WorksheetFunction.IsEven(szam) Then
  ParosCsakSzam = szam
  Exit Function
  Else
  ParosCsakSzam = ""
  Exit Function
  End If
  Next
  End If
  End Function

• #23870 Delila_1 veterán m.zmrzlina #23869

  Új Válasz 2014-10-22 14:02:39 #23870

  Ú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 m.zmrzlina #23869 üzenetére

  Valamelyik hsz-ben az volt, hogy az 56/12 teljes egészében kell. Legalábbis úgy rémlik.

  Láttad, hogy pl. az 1/A igazán "1/A " ?
  Egy halom szóközzel a végén.

• #23868 Delila_1 veterán m.zmrzlina #23867

  Új Válasz 2014-10-22 13:57:00 #23868

  Ú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 m.zmrzlina #23867 üzenetére

  Már eleve nem tudom értelmezni pl. a 17.sorban lévő 13/II-I-3 féle házszámokat, de gyanítom, hogy ott nem lesz jó a 133-as eredmény.

• #23864 Zola007 veterán m.zmrzlina #23860

  Új Válasz 2014-10-22 12:56:16 #23864

  Ú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

  

  Zola007

  veterán

  válasz m.zmrzlina #23860 üzenetére

  mert oda is beteszi az aposztrófot, ahova nem kéne
  (#23861) Delila_1 : megnézem

• #23863 littleNorbi aktív tag m.zmrzlina #23854

  Új Válasz 2014-10-22 12:14:57 #23863

  Ú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

  

  littleNorbi

  aktív tag

  válasz m.zmrzlina #23854 üzenetére

  Tessék egy része, de a lényeg benne van.

  [link]

• #23859 Zola007 veterán m.zmrzlina #23858

  Új Válasz 2014-10-22 11:18:11 #23859

  Ú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

  

  Zola007

  veterán

  válasz m.zmrzlina #23858 üzenetére

  igen, csak a kezdő aposztrófok nem jelennek meg

• #23857 Zola007 veterán m.zmrzlina #23856

  Új Válasz 2014-10-22 11:07:47 #23857

  Ú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

  

  Zola007

  veterán

  válasz m.zmrzlina #23856 üzenetére

  nem jó, mert a szövegnek szerves része és nem mindegyik cellában van jelen, hanem összevissza
  azt nem értem miért nem jeleníti meg, hiszen a "szöveg" formázásnak az lenne a lényege, hogy úgy látszik, ahogy beírtam

• #23853 littleNorbi aktív tag m.zmrzlina #23852

  Új Válasz 2014-10-22 10:12:36 #23853

  Ú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

  

  littleNorbi

  aktív tag

  válasz m.zmrzlina #23852 üzenetére

  Esetleg ha van valamiféle más módszer, mert nekem az a lényeg, hogy páros és páratlan házszámok szerint rendezzem. Tulajdonképpen ez egy lista akiknek levelet szeretnénk küldeni, és akkor fontos lenne, hogy az utca páratlan (pl: 1, 3, 5, 5A, 7), illetve a páros (2, 4, 4A, 6, 6A, 6B) házszámai legyenek egymás után.

• #23831 littleNorbi aktív tag m.zmrzlina #23830

  Új Válasz 2014-10-21 11:52:56 #23831

  Ú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

  

  littleNorbi

  aktív tag

  válasz m.zmrzlina #23830 üzenetére

  Van ahol van "/" is meg "-" is meg szóköz is... Tehát valami olyasmi kellene, hogy ameddig szám, addig hagyja meg, a többit meg dobja át a másik oszlopba...

• #23781 mdk01 addikt m.zmrzlina #23778

  Új Válasz 2014-10-17 08:54:33 #23781

  Ú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

  

  mdk01

  addikt

  válasz m.zmrzlina #23778 üzenetére

  Úgy néz ki megoldódott. ,
  Köszi

• #23777 mdk01 addikt m.zmrzlina #23776

  Új Válasz 2014-10-17 08:37:41 #23777

  Ú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

  

  mdk01

  addikt

  válasz m.zmrzlina #23776 üzenetére

  Ott ahol nem működik a képlet nézd meg, hogy nincs-e a hivatkozott cellában szóköz vagy egyéb nem kinyomtatható karakter.

  Aha, erre nem gondoltam.
  Hivatkozás van benne, de a hivatkozott cella is üres így nem ír ki semmit.
  Akkor gondolom ilyen esetben a hivatkozott cellára kellene nekem is hivatkozni.

  Köszönöm

• #23775 mdk01 addikt m.zmrzlina #23774

  Új Válasz 2014-10-17 08:32:57 #23775

  Ú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

  

  mdk01

  addikt

  válasz m.zmrzlina #23774 üzenetére

  Igen, köszönöm pont ezt próbáltam meg most, és működik valamelyiknél, vaamelyiknél pedig nem.
  Nem teljesen értem, szerintem valami zavar van a képletben és megkeveredik.

  És ha nem akarom hogy az üres szót kiírja, hanem ne írjon ki semmit akkor mit kell írni?
  Most csak simán így hagytam, de ez is zavaros neki.

  =HA(A1="";"";A1)

  Köszönöm

• #23769 A214 aktív tag m.zmrzlina #23768

  Új Válasz 2014-10-16 21:23:37 #23769

  Ú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

  

  A214

  aktív tag

  válasz m.zmrzlina #23768 üzenetére

  egyszerűbb megadni azt, hogy mi ne kapjon sorszámot

• #23766 m.zmrzlina senior tag m.zmrzlina #23765

  Új Válasz 2014-10-16 20:34:17 #23766

  Ú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 m.zmrzlina #23765 üzenetére

  Persze ha az L oszlop képleteit felülírod az értékükkel akkor a segédoszlopokat simán lehet törölni.

  Kérdés az, hogy milyen könnyen tudod előállítani a (nálam) O oszlopban lévő listát.

• #23727 samfishR senior tag m.zmrzlina #23633

  Új Válasz 2014-10-15 11:23:44 #23727

  Ú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

  

  samfishR

  senior tag

  válasz m.zmrzlina #23633 üzenetére

  Köszi a tippet!

  Sajnos a makrókhoz semmi közöm, ebben tudna valaki segíteni?

• #23681 opzozi tag m.zmrzlina #23680

  Új Válasz 2014-10-13 10:45:25 #23681

  Ú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

  

  opzozi

  tag

  válasz m.zmrzlina #23680 üzenetére

  Köszönöm Neked is. Néha egyszerűbb, mint amit beleképzel az ember, hogy ez elég bonyolult.

• #23676 opzozi tag m.zmrzlina #23675

  Új Válasz 2014-10-13 10:02:28 #23676

  Ú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

  

  opzozi

  tag

  válasz m.zmrzlina #23675 üzenetére

  És ha több kritériumot is szeretnék megadni? Pl. mondjuk 2-től nagyobb, de 5- től kisebb.
  Vagy ha van egy másik oszlop mellette. Beszúrok mellé egy másik oszlopot.
  A1:A5 ugyanaz
  B15 [igen;igen;nem;igen;nem]
  És akkor a C-ben számolnék, hogy azokat számolja meg, amelyik megfelel az adott kritériumnak és mondjuk a mellette lévő oszlopban "igen" szerepel.

• #23674 opzozi tag m.zmrzlina #23673

  Új Válasz 2014-10-13 09:46:25 #23674

  Ú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

  

  opzozi

  tag

  válasz m.zmrzlina #23673 üzenetére

  Köszönöm szépen.

• #23634 m.zmrzlina senior tag m.zmrzlina #23633

  Új Válasz 2014-10-09 12:51:03 #23634

  Ú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 m.zmrzlina #23633 üzenetére

  Az "A" munkafüzet két eseményében lévő makró. Természetesen lehet cizellálni őket (főleg az _Open-t) de az elv az ez.

  Private Sub Workbook_BeforeClose(Cancel As Boolean)
  Application.DisplayAlerts = False
  Dim wb As Workbook
  mappa = ThisWorkbook.Path & "\"
  For Each wb In Workbooks
  If wb.Name <> ThisWorkbook.Name Then
  wb.SaveAs Filename:=mappa & wb.Name
  wb.Close
  End If
  Next wb
  Application.DisplayAlerts = True
  End Sub
  
  Private Sub Workbook_Open()
  Workbooks.Open ThisWorkbook.Path & "\B.xlsx"
  Workbooks.Open ThisWorkbook.Path & "\C.xlsx"
  End Sub

• #23621 Delila_1 veterán m.zmrzlina #23619

  Új Válasz 2014-10-09 06:04:02 #23621

  Ú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 m.zmrzlina #23619 üzenetére

  Ez teljesen korrekt, ám a kérdezőnek a képlet másolásával is gondja van.

• #23604 Delila_1 veterán m.zmrzlina #23600

  Új Válasz 2014-10-08 07:40:57 #23604

  Ú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 m.zmrzlina #23600 üzenetére

  Egyszerűbben is meg lehet oldani az oszlopok törlését.

  Sub OszlopTorles()
  Dim oszlop As Integer
  
  For oszlop = ActiveSheet.UsedRange.Columns.Count To 1 Step -1
  If Cells(1, oszlop) >= "S01" And Cells(1, oszlop) <= "S099" Then
  Columns(oszlop).Delete Shift:=xlToLeft
  End If
  Next
  
  End Sub

  Sorok, oszlopok törlésénél mindig az utolsó helytől indulunk az első felé.

• #23601 Hyper84 csendes tag m.zmrzlina #23600

  Új Válasz 2014-10-07 21:54:26 #23601

  Ú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

  

  Hyper84

  csendes tag

  válasz m.zmrzlina #23600 üzenetére

  Nagyon szépen köszönöm a segítséged örök hálám

• #23599 Hyper84 csendes tag m.zmrzlina #23598

  Új Válasz 2014-10-07 21:38:03 #23599

  Ú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

  

  Hyper84

  csendes tag

  válasz m.zmrzlina #23598 üzenetére

  Ezt a fordítva dolgot leírnád még nekem légy szíves és igérem befejeztem?

• #23598 m.zmrzlina senior tag m.zmrzlina #23597

  Új Válasz 2014-10-07 21:29:01 #23598

  Ú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 m.zmrzlina #23597 üzenetére

  Ehhez a módszerhez mindenképp kell egy tartomány amiben a "halálra ítélt" azonosítók vannak.

  Meg lehet fordítva is csinálni de akkor a maradó azonosítók listája kell és a Countif() nulla értékénél kell törölni.

  Ugyanaz csak pepitában.

• #23596 Hyper84 csendes tag m.zmrzlina #23593

  Új Válasz 2014-10-07 21:26:32 #23596

  Ú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

  

  Hyper84

  csendes tag

  válasz m.zmrzlina #23593 üzenetére

  Vagy meg is lehetne fordítani a dolgot, az nem lenne programozás oldalról egyszerűbb, ha azt mondanánk, hogy mindent töröljön kivéve azokat az oszlopokat amik nekem kellenek, jelen esetben A01, A02...stb.

  Még ez így jobb is lenne nekem ugyanis a tábla elején vannak még felesleges oszlopok, csak gondoltam azt kézzel kitörlöm.

• #23595 Hyper84 csendes tag m.zmrzlina #23593

  Új Válasz 2014-10-07 21:23:01 #23595

  Ú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

  

  Hyper84

  csendes tag

  válasz m.zmrzlina #23593 üzenetére

  Nagyon köszi ez így már majdnem jó is lenne, csak úgy nem lehet ezt megoldani, hogy ahogy az én táblám látod abból a makró futtatásával törölje a felesleges oszlopokat?

  Mert azt hogy külön meg kell adnom a törlendő oszlopok értékeit, az nekem nagyon sok időt venne igénybe ugyanis ez az S01, S02...ez egészen S99-ig tart és ilyen excelből van vagy 30 db.

• #23592 Hyper84 csendes tag m.zmrzlina #23591

  Új Válasz 2014-10-07 20:58:55 #23592

  Ú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

  

  Hyper84

  csendes tag

  válasz m.zmrzlina #23591 üzenetére

  Erről lenne szó...és köszönöm előre is

• #23577 Fferi50 Topikgazda m.zmrzlina #23575

  Új Válasz 2014-10-06 19:31:23 #23577

  Ú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 m.zmrzlina #23575 üzenetére

  Szia!

  Azért van ez, mert a sima range és cells mindig az AKTÍV munkalapra hivatkozik, ha nincs előtte a pontos megjelölés.
  Tehát a második: wsKabelo.Range(wsKbelo.Cells(2, intDigitlista_oszlop), wsKabelo.Cells(intListahossz, intDigitlista_oszlop))

  formában működik megfelelően. (Én is bele szoktam néha esni ebbe a hibába....)

  Az első viszont a betűkkel direktben a wsKabelo -ra hivatkozik.

  Üdv.

• #23558 Mittu88 senior tag m.zmrzlina #23554

  Új Válasz 2014-10-06 12:54:37 #23558

  Ú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

  

  Mittu88

  senior tag

  válasz m.zmrzlina #23554 üzenetére

  Az fog is változni, de nem az a problémád, hogy volt, amelyiknek nem volt kezdőértéke még?

• #23557 Polllen félisten m.zmrzlina #23554

  Új Válasz 2014-10-06 12:37:26 #23557

  Ú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

  

  Polllen

  félisten

  válasz m.zmrzlina #23554 üzenetére

  És változni is fognak, hiszen bizonyos sub-n belül dolgozol velük.

  Ha mindig ugyanaz a kiinduló érték, nincs jelentősége annak, hogy egy sub-bal vagy munkafüzetben adod meg a kiinduló értéket.

  Ha viszont az utolsó folyamat értéke kell, akkor is ha aktuálisan az a folyamat nem futott, tehát nem adott értéket, el kell tárolnod az előzőt és azt beolvasni.

• #23556 sedyke tag m.zmrzlina #23550

  Új Válasz 2014-10-06 12:21:05 #23556

  Ú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

  

  sedyke

  tag

  válasz m.zmrzlina #23550 üzenetére

  Azt nem tudom elérni, hogy képlettel a mindig x sorral lejjebb található cellát kapjam eredményül. Manuális persze megtalálom, de több száz is van egy munkalapon belül.

• #23553 Mittu88 senior tag m.zmrzlina #23552

  Új Válasz 2014-10-06 12:10:21 #23553

  Ú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

  

  Mittu88

  senior tag

  válasz m.zmrzlina #23552 üzenetére

  Modul-on belül deklarálod Sub-on kívül, aztán csinálsz egy Sub-ot, amiben értéket adsz mindegyiknek.
  workbook_open-be meg beírod a sub nevét.

  pl.:
  Module-ban:

  Public pelda as integer
  Public peldaketto as string

  Sub Ertekadas()

  pelda = 12345
  peldaketto = "egykettoharomnegyot"

  End Sub

  ThisWorkBook-ban meg:
  Private Sub Workbook_Open()

  Ertekadas

  End Sub

  Bocsi, ha nem elég érthető, szaknyelvben nem vagyok jó (még)

• #23549 Mittu88 senior tag m.zmrzlina #23546

  Új Válasz 2014-10-06 11:57:59 #23549

  Ú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

  

  Mittu88

  senior tag

  válasz m.zmrzlina #23546 üzenetére

  Az esetleg nem lenne elegánsabb, ha csinálnál a module-ban egy eljárást, ami csak értéket ad a public változóknak, az eljárást pedig a Workbook_Open eseménynél meghívod?
  Ergo fájl megnyitásakor kapna mindegyik public változó értéket és utána már használhatnád.

• #23548 Fferi50 Topikgazda m.zmrzlina #23546

  Új Válasz 2014-10-06 11:55:22 #23548

  Ú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 m.zmrzlina #23546 üzenetére

  Szia!

  Így van, elég így csinálni, de ennyi viszont kell.

  Üdv.

• #23545 Fferi50 Topikgazda m.zmrzlina #23542

  Új Válasz 2014-10-06 11:15:20 #23545

  Ú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 m.zmrzlina #23542 üzenetére

  Szia!

  Paraméteresen is definiálhatod az egyes makrókat és akkor minden meghíváskor meg tudod mondani neki, hogy melyik változó melyik értékét használja.
  pl. sub valami (byval valt1 as string,byref valt2 as integer)
  eljárás
  end sub

  A byval és byref jelentőségét olvasd el a súgóban, illetve az előző hsz.-ban foglaltak miatt is a változók élettartama (variables scope) részt is.

  Egy másik lehetőség:
  Az egyes változó értékét "eltárolod" egy munkalap cellájába. Ide írják ki az egyes makrók az értékét és innen olvashatják ki mások az értéket. Ebben az esetben nem kell public változót használnod, sem paraméters meghívást, helyette minden eljárásból kilépéskor utolsó műveletek a változók értékeinek beírása az adott cellákba, az eljárások indulásakor pedig a változókba beolvasod a cellák értékét.

  Ebben az esetben a cellákban mindig a legutoljára eltárolt érték lesz benne és az olvasható ki, így megoldódik a legutóbbi kérdésedben levő probléma is.

  Üdv.

• #23543 Polllen félisten m.zmrzlina #23542

  Új Válasz 2014-10-06 10:56:49 #23543

  Ú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

  

  Polllen

  félisten

  válasz m.zmrzlina #23542 üzenetére

  Ha mindig az előző eljárásnál felvett érték kell az újban, akkor public változókat kell használnod. Így adott module-n belül minden sub "látja".

• #23529 Timyyy őstag m.zmrzlina #23527

  Új Válasz 2014-10-03 09:46:29 #23529

  Ú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

  

  Timyyy

  őstag

  válasz m.zmrzlina #23527 üzenetére

  Tejóég, nekem ez kínai...

• #23512 Delila_1 veterán m.zmrzlina #23508

  Új Válasz 2014-09-30 15:30:39 #23512

  Ú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 m.zmrzlina #23508 üzenetére

  Szivi.

• #23507 Delila_1 veterán m.zmrzlina #23504

  Új Válasz 2014-09-30 11:18:58 #23507

  Ú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 m.zmrzlina #23504 üzenetére

  Set wsTemp = workbooks("wbTemp.xlsx").Worksheets("Munka2")

  Nem célszerű az éppen aktív lapra hivatkozni változó értékének a megadásánál.

  Set wsOsszesito = sheets("Osszesito")

• #23502 Delila_1 veterán m.zmrzlina #23501

  Új Válasz 2014-09-30 11:06:35 #23502

  Ú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 m.zmrzlina #23501 üzenetére

  wsTemp.Range("A1").CurrentRegion.Copy Destination:=wsOsszesito.cells(1, elsoures_oszlop)

• #23492 bteebi veterán m.zmrzlina #23488

  Új Válasz 2014-09-29 15:29:50 #23492

  Ú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

  

  bteebi

  veterán

  válasz m.zmrzlina #23488 üzenetére

  Köszönöm mindkettőtöknek!
  #23491: Van benne valami .

• #23491 Delila_1 veterán m.zmrzlina #23490

  Új Válasz 2014-09-29 13:33:45 #23491

  Ú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 m.zmrzlina #23490 üzenetére

  Ezért alkalmazok szívesebben a tartalmukra utaló nevű változókat, mint pl. sor, és oszlop.

• #23489 Delila_1 veterán m.zmrzlina #23488

  Új Válasz 2014-09-29 13:20:04 #23489

  Ú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 m.zmrzlina #23488 üzenetére

  Jobban látszik a haladás sorrendje, ha a Cells(i, j).Select sor helyett
  MsgBox Cells(i, j).Address szerepel a makrókban.

• #23487 bteebi veterán m.zmrzlina #23486

  Új Válasz 2014-09-29 12:16:34 #23487

  Ú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

  

  bteebi

  veterán

  válasz m.zmrzlina #23486 üzenetére

  Akkor nem véletlenül nem találtam . Köszönöm, ki fogom próbálni.

• #23483 -PLevi- senior tag m.zmrzlina #23480

  Új Válasz 2014-09-28 20:39:14 #23483

  Ú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

  

  -PLevi-

  senior tag

  válasz m.zmrzlina #23480 üzenetére

  Köszönöm szépen, ki lesz próbálva!

• #23445 Mittu88 senior tag m.zmrzlina #23433

  Új Válasz 2014-09-25 09:43:44 #23445

  Ú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

  

  Mittu88

  senior tag

  válasz m.zmrzlina #23433 üzenetére

  Köszönöm szépen, Fferi-nek is

  Viszont felmerült egy másik probléma:

  Van egy ilyen kódom:

  Public sor As Integer
  ...
  Private Sub Worksheet_Change(ByVal Target As Range)
  sor = Target.Row
  ...
  Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  Dim nev As String
  ...
  nev = Cells(sor, 1).Value
  ...

  És erre azt a hibaüzenetet dobja, hogy Application-defined or object-defined error.
  A sor változó értéke 0, tehát nyilván nem tudja a nev változónak egy nem létező cella értékét adni. De mitől 0 a sor értéke?
  Próbáltam a sor = ActiveCell.Row parancsot is, de ugyanez van.

• #23444 lappy őstag m.zmrzlina #23442

  Új Válasz 2014-09-25 08:55:44 #23444

  Ú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 m.zmrzlina #23442 üzenetére

  Minden naphoz más-más terem illetve időpont tartozhat.
  A táblázatban nincs egyesített cella csak a képen nem jól látszik.

• #23443 .OM. aktív tag m.zmrzlina #23440

  Új Válasz 2014-09-25 07:45:04 #23443

  Ú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

  

  .OM.

  aktív tag

  válasz m.zmrzlina #23440 üzenetére

  

• #23436 .OM. aktív tag m.zmrzlina #23429

  Új Válasz 2014-09-24 17:27:41 #23436

  Ú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

  

  .OM.

  aktív tag

  válasz m.zmrzlina #23429 üzenetére

  Szia,

  Csúcs, de az 1. sort nem viszi.. Tehát a 2. sor színe megy az 1. sorba az új fülön.
  Mindegy, mert a címsort nem kell színezni, a végén majd azt beszúrom...

  +1 #pirospont m.zmrzlina részére

• #23426 .OM. aktív tag m.zmrzlina #23425

  Új Válasz 2014-09-24 10:50:36 #23426

  Ú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

  

  .OM.

  aktív tag

  válasz m.zmrzlina #23425 üzenetére

  Sajnos pont egy bitang nagy riport közepén vannak a kérdéses színek, és minden irányban változó, hogy hol lenne szabad hely. A fehér szín nem okoz gondot, csak a buta színeket kell ráhúznom más adatokra.
  ..marad a 220 oszloppal keletre tolás és a lefestés utólag.

  Végül is megoldódott, köszi

• #23423 .OM. aktív tag m.zmrzlina #23418

  Új Válasz 2014-09-24 07:45:03 #23423

  Ú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

  

  .OM.

  aktív tag

  válasz m.zmrzlina #23418 üzenetére

  Köszönöm kedves Hóember!

  Ha jól értem, ez 10 oszloppal jobbra teszi be a színeket - remekül működik, köszi!

  Szerinted ki lehet tenni vágólapra és utána én választhatom meg, hogy vol legyen?
  Esetleg egy új "colors" fülre A1-től beilleszteni?

  ..arra már rájöttem, hogy nem egész oszlopot kell kijelölni, mert az kicsit megfogja a gépet..

  Köszi,
  .om.

• #23421 Excelbarat tag m.zmrzlina #23420

  Új Válasz 2014-09-23 23:23:13 #23421

  Ú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

  

  Excelbarat

  tag

  válasz m.zmrzlina #23420 üzenetére

  Színezésre egy másik megoldás (sajnos nem tudom, h korábbi verziónál működik-e):

  Sub szinez()
  Dim r
  Dim g
  Dim b
  Dim i
  For i = 1 To 5
  r = Range("A" & i).Interior.Color Mod 256
  g = (Range("A" & i).Interior.Color Mod 256 ^ 2) \ 256
  b = Range("A" & i).Interior.Color \ 256 ^ 2
  Range("C" & i).Interior.Color = RGB(r, g, b)
  Next i
  End Sub

  Az "A" oszlop 1sorától az 5-ig a színeket átmásolja a "C" oszlop ugyan ezen soraiba.
  Ha esetleg valaki makróval akar színezni diagramm oszlopokat így lehet (nálam épp ehhez kellett ):
  ActiveSheet.ChartObjects("chart1").Activate
  ActiveChart.SeriesCollection(1).Format.Fill.ForeColor.RGB = RGB(r, g, b)

  Üdv,
  Excelbarát

• #23419 Fferi50 Topikgazda m.zmrzlina #23418

  Új Válasz 2014-09-23 20:13:44 #23419

  Ú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 m.zmrzlina #23418 üzenetére

  Szia!

  Ez a kód 2010-es verziótól jó. Korábbi verziókban nem működik.

  Üdv.

• #23413 Wyll őstag m.zmrzlina #23412

  Új Válasz 2014-09-23 16:29:06 #23413

  Ú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

  

  Wyll

  őstag

  válasz m.zmrzlina #23412 üzenetére

  köszönöm, ezt is megnézem - majd holnap
  köszi szépen!

• #23389 slashing senior tag m.zmrzlina #23387

  Új Válasz 2014-09-23 10:07:25 #23389

  Ú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

  

  slashing

  senior tag

  válasz m.zmrzlina #23387 üzenetére

  Hát én is kb. erre jutottam: miután lefutott a kódom nem térek vissza arra a lapra ahonnan másolni akarok hanem előbb a törlendő lapra ugrok és törlök majd visszaugrok a másolandó adatokat tartalmazó lapra ott másolok és újra visszaugrok arra a lapra hol előtte kitöröltem. szóval csináltam egy oda vissza oda bakugrást

• #23388 m.zmrzlina senior tag m.zmrzlina #23387

  Új Válasz 2014-09-23 09:55:40 #23388

  Ú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 m.zmrzlina #23387 üzenetére

  Talán egy fokkal jobb, ha kiírod tömbbe. Onnantól fogva van egy változód amit kedved szerint módosíthatsz aztán a végén visszaírod a munkalapra.

• #23377 Imy veterán m.zmrzlina #23376

  Új Válasz 2014-09-22 21:14:20 #23377

  Ú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

  

  Imy

  veterán

  válasz m.zmrzlina #23376 üzenetére

  Köszönöm!!!

• #23367 slashing senior tag m.zmrzlina #23366

  Új Válasz 2014-09-21 09:04:53 #23367

  Ú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

  

  slashing

  senior tag

  válasz m.zmrzlina #23366 üzenetére

  Köszi és neked is Delila_1 mindkét verzió nagyon jó és hasznos volt, pont úgy megy ahogy akartam

• #23345 Mittu88 senior tag m.zmrzlina #23343

  Új Válasz 2014-09-20 09:30:51 #23345

  Ú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

  

  Mittu88

  senior tag

  válasz m.zmrzlina #23343 üzenetére

  Az biztos. Az Apple komoly pénzeket fizetne egyes kollegák szoftveres "tesztelési" képességeiért.

• #23337 Mittu88 senior tag m.zmrzlina #23335

  Új Válasz 2014-09-19 18:48:20 #23337

  Ú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

  

  Mittu88

  senior tag

  válasz m.zmrzlina #23335 üzenetére

  A mi cégünknél nem elvárás az ilyen alap szintű office programcsalád ismerete. Pályakezdő vagyok (bár már talán nem, 2 éve vagyok a cégnél), máshol elvárás?
  Amúgy nevetséges

• #23330 Mittu88 senior tag m.zmrzlina #23317

  Új Válasz 2014-09-19 09:20:36 #23330

  Ú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

  

  Mittu88

  senior tag

  válasz m.zmrzlina #23317 üzenetére

  Szuppper Az Open és a BeforeClose eseményben is volt előtte parancs, ezeket egyből kiütötte (nem működtek), mert rossz helyre illesztettem be először a parancssoraidat (veryhidden munkalapon nem tud dolgozni a vba!), de minimális gondolkozás és javítás után tökéletesen működött.

  Nagyon szépen köszönöm a segítséget!

• #23318 Mittu88 senior tag m.zmrzlina #23317

  Új Válasz 2014-09-18 15:55:07 #23318

  Ú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

  

  Mittu88

  senior tag

  válasz m.zmrzlina #23317 üzenetére

  Húú de cseles Holnap megnézem, mert most rohannom kell. Majd írok, hogy mi lett.

• #23313 littleNorbi aktív tag m.zmrzlina #23311

  Új Válasz 2014-09-18 13:22:26 #23313

  Ú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

  

  littleNorbi

  aktív tag

  válasz m.zmrzlina #23311 üzenetére

  Így is gyalog kellett kijavítanom, de köszönöm, mert hosszútávra szuper megoldás.

• #23300 gbela senior tag m.zmrzlina #23299

  Új Válasz 2014-09-17 12:32:29 #23300

  Ú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

  

  gbela

  senior tag

  válasz m.zmrzlina #23299 üzenetére

  2013-ban nincs ilyen beállítás, de sikerült közben megoldanom a gondom (bár a paraméterezett Excel shortcut tálcára juttatása is szép történet), szóval minden oks.

• #23297 gbela senior tag m.zmrzlina #23295

  Új Válasz 2014-09-17 11:47:26 #23297

  Ú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

  

  gbela

  senior tag

  válasz m.zmrzlina #23295 üzenetére

  Igen, én is erre gondoltam elsőre (régiben ugye konkrétan abba az ablakba nyitotta meg alapból a fájlokat, és külön indítva excelt és azon menüből megnyitva a fájlt lehetett a két ablakot csak egymás mellé tenni, tehát ahogy írod is, két példány futott).
  Viszont ha ugyanezzel a módszerrel nyitom meg most akkor is (mintha) ugyanabban a példányban nyitja meg. Tehát a probléma gyökere ha jól veszem ki, hogy nem sikerül két példányt futtatnom magából az Excelből.
  Erre ötlet?

• #23235 Des1gnR őstag m.zmrzlina #23233

  Új Válasz 2014-09-12 17:18:50 #23235

  Ú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

  

  Des1gnR

  őstag

  válasz m.zmrzlina #23233 üzenetére

  Megnézem, köszi.

  Arra gondoltam először, hogy ha nem lesz megoldás, akkor a 2 munkalap sorainak számát kivonom egymásból és akkor látom, hogy hányszor kell még lefuttatni. Ezt írom a K11-be és azért léptettem oda.

• #23214 Fferi50 Topikgazda m.zmrzlina #23212

  Új Válasz 2014-09-11 18:00:38 #23214

  Ú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 m.zmrzlina #23212 üzenetére

  Szia!

  Annyi adat, ami itt lesz, már nem biztos, hogy befér az excel által kezelt memóriába.
  Egyébként is, ha már excel, annak a lehetőségeit kellene kihasználni szerintem.

  Üdv.

• #20941 Delila_1 veterán m.zmrzlina #20940

  Új Válasz 2014-03-14 16:09:33 #20941

  Ú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 m.zmrzlina #20940 üzenetére

  Sok szerencsét!

• #20939 Delila_1 veterán m.zmrzlina #20938

  Új Válasz 2014-03-14 16:00:26 #20939

  Ú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 m.zmrzlina #20938 üzenetére

  Igen.

• #20937 Delila_1 veterán m.zmrzlina #20936

  Új Válasz 2014-03-14 15:46:22 #20937

  Ú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 m.zmrzlina #20936 üzenetére

  Teljesen más ötlet.

  Egy oszlopba bevinném az időpontokat, a címsorba pedig a dátumokat (nn formátummal, hogy kevés helyet foglaljanak). Lehet fordítva is az idő és dátum elhelyezése. A metszéspontokba 1-es értéket adnék, mikor égett a villany, és semmit, ha nem.
  Egy feltételes formázással hátteret adnék az 1-et tartalmazó celláknak, azonos karakterszínnel. Diagram kilőve.

  A dátumok helyett lehetnek a munkahelyek, vagy amire szükséged van.

• #20936 m.zmrzlina senior tag m.zmrzlina #20935

  Új Válasz 2014-03-14 15:31:25 #20936

  Ú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 m.zmrzlina #20935 üzenetére

  A feladatot egyébként úgy tudnám leírni, hogy ábrázolni kell egyetlen ábrán hogy pl különböző lámpák mettől meddig vannak felkapcsolt és meddig lekapcsolt állapotban a nap folyamán.

  Ha más ötlet van azt is szivesen fogadom.

• #20004 m.zmrzlina senior tag m.zmrzlina #20002

  Új Válasz 2014-01-09 14:00:26 #20004

  Ú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 m.zmrzlina #20002 üzenetére

  Bocsánat, itt a magyarázat egy kissé zavaros. Valójában nem az F oszlopon megy végig, hanem azon az oszlopon aminek az egyik celláját kijelölöd.

• #19661 scincole csendes tag m.zmrzlina #19657

  Új Válasz 2013-11-27 13:09:34 #19661

  Ú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

  

  scincole

  csendes tag

  válasz m.zmrzlina #19657 üzenetére

  De be van.

• #19455 slashing senior tag m.zmrzlina #19453

  Új Válasz 2013-11-06 06:35:33 #19455

  Ú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

  

  slashing

  senior tag

  válasz m.zmrzlina #19453 üzenetére

  áhhh

  kipróbáltam 8 random karakter kettő nagybetű + kettő szám és pillanatok alatt szerkeszthető volt, szóval mindegy hogy cica vagy asdkeiAkkB784 a jelszó. Így azon nem kell töprengeni hogy nehéz legyen vagy könnyű a jelszó. védeni még attól függetlenül fogom csak nem erőltetem magamra a nehéz jelszót csak valami nagyon egyszerűt...

• #19410 Mutt senior tag m.zmrzlina #19401

  Új Válasz 2013-10-29 20:33:12 #19410

  Ú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

  

  Mutt

  senior tag

  válasz m.zmrzlina #19401 üzenetére

  Hello,

  Megoldás lehet az OSZLOP függvény használata is.
  =OSZLOP(CV1)

  üdv

• #18994 hallgat csendes tag m.zmrzlina #18985

  Új Válasz 2013-09-17 22:22:26 #18994

  Ú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

  

  hallgat

  csendes tag

  válasz m.zmrzlina #18985 üzenetére

  Szerintem sem úszom meg a tömböket
  Mindent el kell egyszer kezdeni

  Most néztem épp Mutt válaszát...

  Eljött az ideje a tanulásnak

  Köszönöm a segítséget!!!!

• #18983 hallgat csendes tag m.zmrzlina #18981

  Új Válasz 2013-09-16 17:35:49 #18983

  Ú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

  

  hallgat

  csendes tag

  válasz m.zmrzlina #18981 üzenetére

  Köszönet!

  Ezt nem most fogom átrágni, de hasznos lesz

  A tömböket... No igen, egyszer rá kéne már szánni magam.

  Köszönöm!!!

• #18926 Delila_1 veterán m.zmrzlina #18925

  Új Válasz 2013-09-09 18:36:17 #18926

  Ú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 m.zmrzlina #18925 üzenetére

  próbáld meg, hogy az

  ActiveWorkbook.Worksheets(2).Range("C1:C51")

  sorban az aktív füzet helyett a másikra hivatkozol, útvonallal és kiterjesztéssel.
  Nem hiszem, hogy sikerülne, mert a nevet a másik fájlban kell bejegyezni, ahhoz pedig meg kell nyitnod.
  Egy megnyitatlan fájlból lehet olvasni, de írni bele nem valószínű.

• #18923 Delila_1 veterán m.zmrzlina #18922

  Új Válasz 2013-09-09 18:00:15 #18923

  Ú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 m.zmrzlina #18922 üzenetére

  Mit szólsz ahhoz, ha kitallózhatod a megnyitandó fájlt?

  Private Sub Megnyit()
  Dim FN As String
  
  FN = Application.GetOpenFilename(filefilter:="Microsoft Office Excel 97-2003 munkalap(*.xls),*.xls", FilterIndex:=2, Title:="Select Database file", MultiSelect:=False)
  If Not FN = "False" Then
  Workbooks.Open Filename:=FN
  MsgBox "Megnyitottad a fájlt, és aktív"
  Else
  MsgBox "Nem nyitottad meg a fájlt"
  End If
  End Sub

  Nem tudom, melyik verziót használod, a 2003-as, xls kiterjesztésűt tettem bele.

• #18418 aPoFa tag m.zmrzlina #18413

  Új Válasz 2013-07-03 11:21:06 #18418

  Ú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

  

  aPoFa

  tag

  válasz m.zmrzlina #18413 üzenetére

  Ezt hogyan érted?

• #18417 pero19910606 csendes tag m.zmrzlina #18416

  Új Válasz 2013-07-03 11:15:42 #18417

  Ú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

  

  pero19910606

  csendes tag

  válasz m.zmrzlina #18416 üzenetére

  Köszönöm a segítséget Sikerült is megcsinálnom Még egy kérdésem lenne. Szeptember 2-től kéne ezt meg csinálnom 2015. augusztus 31-ig, mert kell készítenem egy becslést is. A kérdés az , hogy az excelben van olyan lehetőség, hogy ezt a 730 napot kiírja nekem, de csak úgy, hogy a munkanapok szerepeljenek benne, tehát a karácsony a szilveszter stb... ne szerepeljen benne?

• #18412 aPoFa tag m.zmrzlina #18411

  Új Válasz 2013-07-02 14:05:11 #18412

  Ú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

  

  aPoFa

  tag

  válasz m.zmrzlina #18411 üzenetére

  Sajnos ez több száz, ezer oszlopot, cellát jelent.

• #18409 aPoFa tag m.zmrzlina #18408

  Új Válasz 2013-07-02 12:52:12 #18409

  Ú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

  

  aPoFa

  tag

  válasz m.zmrzlina #18408 üzenetére

  Szia!

  Köszi! Már csak az lenne a kérdésem, hogy hogy oldhatnám úgy fel, hogy a többi formázás megmaradjon, mert a formázás törlésével már vissza tudom állítani az adatokat, csak az összes formázás így elveszik.

  Üdv:

• #18212 vamzi senior tag m.zmrzlina #18209

  Új Válasz 2013-06-05 17:01:27 #18212

  Ú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

  

  vamzi

  senior tag

  válasz m.zmrzlina #18209 üzenetére

  Köszönöm, sajnos makróhoz nem értek.

  sztanozs
  Végül így sikerült megoldanom:
  =IFERROR(INDEX(Fő!$A:$A;MATCH(D44;Fő!$K:$K;0)+MATCH($C$46;INDIRECT(CONCATENATE("Fő!G";MATCH(D44;Fő!$K:$K;0);":G";MATCH(F44;Fő!$K:$K;0)-1));0)-1);"")

  Köszönöm a segítségeket.

• #18138 motinka tag m.zmrzlina #18137

  Új Válasz 2013-05-25 10:48:47 #18138

  Ú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

  

  motinka

  tag

  válasz m.zmrzlina #18137 üzenetére

  köszönöm ezt mindenképpen megpróbálom.
  Közben keresgettem és ha jól olvasom/értem nekem egy template-t kell csinálnom amiben megadom a kívánságaimat, ezt berakom az egyik fülre.
  Amikor érkezik a napi adat file, az mellé beteszem a másik fülre ezt a template fület és hogy mitől indul el azt nem tudom ) Hol lehet ezután magyarul olvasni okosakat?
  Közben felmerült egy kérdés, ebben a template-ben ami táblázatnak van megformázva, azaz nem csak itt érvényes, bárhol, hogyan tudok egy fülön rákeresni egy másik fül oszlopnevére (ez adott), hogy azt gyűjtse? köszi

• #18084 sztanozs veterán m.zmrzlina #18083

  Új Válasz 2013-05-16 10:29:14 #18084

  Ú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 m.zmrzlina #18083 üzenetére

  If Asc(Mid(cella.Value, i, 1)) > 47 And Asc(Mid(cella.Value, i, 1)) < 58 Then
  helyett
  If isNumeric(cella.Value, i) Then
  egyszerűbb, és kevesebbet is számol (bár nem szükségszerűen annyira megbízható...)

• #18060 VIVANA csendes tag m.zmrzlina #18058

  Új Válasz 2013-05-10 21:46:33 #18060

  Ú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

  

  VIVANA

  csendes tag

  válasz m.zmrzlina #18058 üzenetére

  köszi.

• #18024 Caipi tag m.zmrzlina #18023

  Új Válasz 2013-05-02 15:34:39 #18024

  Ú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

  

  Caipi

  tag

  válasz m.zmrzlina #18023 üzenetére

  Ha kiveszed működik. Kipróbáltam, nálam megcsinálta

• #18003 Geryson addikt m.zmrzlina #17997

  Új Válasz 2013-04-30 13:25:05 #18003

  Ú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

  

  Geryson

  addikt

  válasz m.zmrzlina #17997 üzenetére

  Szövegnek szöveg az összes érték az A oszlopban. Erre azért volt szükség, mert van olyan szám, ami nullával kezdődik (pl. az első 01701) és ha számnék lenne engedélyezve, akkor eltüntetné a nullát előle.

  Szorozzak így is? Ráadásul vannak lentebb cellák, ahol az adagszám pl. LT123456, tehát ott már szorozni sem tudok...

• #17840 Delila_1 veterán m.zmrzlina #17834

  Új Válasz 2013-04-18 11:49:48 #17840

  Ú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 m.zmrzlina #17834 üzenetére

  Aktuális terület 1 cellából nézve az, amit 4 irányból határol 1-1 üres oszlop, ill. üres sor.
  A területen belül állva Ctrl+a, vagy Ctrl+t jelöli ki. Próbáld ki foghíjas területekkel.

• #17839 Caipi tag m.zmrzlina #17838

  Új Válasz 2013-04-18 11:21:38 #17839

  Ú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

  

  Caipi

  tag

  válasz m.zmrzlina #17838 üzenetére

  :-D

  Hálistennek a hibázási lehetőségek száma nem sok, főleg ha a függvényes cellák zároltak.
  Azt már látom, hogy csak simán nem megy az A1<>D1, mivel az első táblázatba fgv-el jönnek az adatok.
  Darab(A1)<>darab(D1) szintaktika a működő az esetemben.

• #17837 Caipi tag m.zmrzlina #17833

  Új Válasz 2013-04-18 10:50:42 #17837

  Ú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

  

  Caipi

  tag

  válasz m.zmrzlina #17833 üzenetére

  Köszönöm,

  Már csinálom a függvényt, a többi része rendben lesz, bár jó hosszú lesz
  Még ki kell tesztelnem, hogy minden hibára jelezzen, amit el lehet követni

• #17832 Caipi tag m.zmrzlina #17830

  Új Válasz 2013-04-18 09:31:00 #17832

  Ú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

  

  Caipi

  tag

  válasz m.zmrzlina #17830 üzenetére

  Köszönöm szépen,
  A makrókat igyekszem kerülni, mivel a cégnél alapból le van tiltva a makró az excelekben és elég nehézkes elmagyarázni az emberkéknek, hogy mit is tegyenek, ha dolgozni akarnak ebbe a fájlba

  Ezért igyekszem mindent függvénnyel megoldani

• #17831 Delila_1 veterán m.zmrzlina #17830

  Új Válasz 2013-04-18 09:23:47 #17831

  Ú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 m.zmrzlina #17830 üzenetére

  A saját kijelölés kiküszöbölésére a for each fölött a

  Range("A1").Select
  Selection.CurrentRegion.Select

  kijelöli a szükséges területet.

• #17704 ro_bert17 őstag m.zmrzlina #17700

  Új Válasz 2013-04-11 15:45:08 #17704

  Ú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

  

  ro_bert17

  őstag

  válasz m.zmrzlina #17700 üzenetére

  Nos! Tegnap én is erre gondoltam először a hsz-em előtt, eszembe juttatva a régi szép időket, a számszerű szövegekről. Viszont nem gondoltam, hogy ez dátumnál is müködik (pedig a jelenség hasonló). Úgy tűnik műkdik! Köszi az ötletet!

• #17690 Kobe veterán m.zmrzlina #17689

  Új Válasz 2013-04-09 19:43:07 #17690

  Ú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

  

  Kobe

  veterán

  válasz m.zmrzlina #17689 üzenetére

  megnézem majd, igazából úgy épül fel amga a történet, hogy van egy hosszabb makró, annak az elején az accesses változók, lekérdezések, útvonalak vannak definiálva, hova mentse a filet, stb, majd van egy része ami azt definiálja hogy ha lementette a filet, abba milyen kódot "szúrjon be". Gondolom csak a beszúrt kódot kell hasonlóképp megbűvölni

• #17689 m.zmrzlina senior tag m.zmrzlina #17688

  Új Válasz 2013-04-09 19:39:52 #17689

  Ú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 m.zmrzlina #17688 üzenetére

  Ilyesmi vizsgálatra gondoltam:

  Sub vanemar()
  Dim ws As Worksheet
  Dim bolVanemar As Boolean
  bolVanemar = False
  
  For Each ws In ActiveWorkbook.Worksheets
  If ws.Name = "munkalapodneve" Then bolVanemar = True
  Next
  
  
  If bolVanemar = True Then
  Exit Sub
  Else
  'ide jön a makró aminek le kell futni
  End If
  
  End Sub

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