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

• Pá addikt

  2023-01-05 10:48:06 #50200

  Új Válasz

  Ú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

  

  Pá

  addikt

  válasz Delila_1 üzenetére #50199

  Köszi!
  Ez a legjobb topic egész PH!-n, mindenre van megoldás, normális hangnemben. Hasznos is, érdekes is.

• Delila_1 veterán

  2023-01-05 06:34:27 #50199

  Új Válasz

  Ú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

  

  Delila_1

  veterán

  válasz Pá üzenetére #50196

  Az Application.DisplayAlerts = False letiltja a figyelmeztetéseket. True értékkel vissza kell állítani a makró megfelelő helyén.

• eszgé100 őstag

  2023-01-04 21:39:16 #50198

  Új Válasz

  Ú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

  

  eszgé100

  őstag

  Sziasztok,

  Eloszor is szeretnek Boldog Ujevet kivanni az egesz csoportnak

  Valtozatossag kedveert most egy scatter plot charttal (szorasdiagram?) kinlodok.

  x tengely datum, targyho 1-tol utolso napig
  y tengely meresek eredmenye

  egy nap tobb erteket is fel kellene vinni, es szeretnem, ha ezek szinkodolva lennenek, attol fuggoen, hogy melyik tipusu modellhez tartozik a meres. 4 kulonbozo tipus van plusz egy mesterdarab, amit mindennap ellenorzunk. Tablazatban, ahonnan az adatok jonnek Datum, Modell, Szeriaszam, Eredmeny, Min es Max tures (utobbi ketto csak a felteteles formazas miatt, de akar a diagramon is jol jonnenek, pl szaggatott vonalkent jelolve).

  Kerdesem, hogy a fenti adatokbol lehetne olyan grafikont keszteni, ahol a tipusok szinkod szerint el vannak kulonitve, plusz ha az adott potty fole viszem az egeret, akkor megjelenitse a szeriaszamot es esetleg a turesek be legyenek jelolve?

  Elore is koszonom

• gyga senior tag

  2023-01-04 21:27:29 #50197

  Új Válasz

  Ú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

  

  gyga

  senior tag

  válasz lappy üzenetére #50191

  

• Pá addikt

  2023-01-04 21:00:42 #50196

  Új Válasz

  Ú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

  

  Pá

  addikt

  válasz lappy üzenetére #50181

  Kööszi szépen, tök jól működik. (közben nekem is sikerült megoldanom, egy nagyon favágó módszerrel, de ez mindenképp elegánsabb)

  Delila_1 --> neked is köszi, így is működik. A tiédből kiloptam az ötletet, ha esetleg a user mégsem nyitna meg file-t (vagy rosszat nyitna meg), akkor álljon le a makró MsgBox-szal. Jó ötlet lefedni ezeket a lehetőségeket.

  Egy nagyon picit szeretnék rajta finomítani még, ha lehet.
  1. A file megnyitásánál le lehet valahogy lőni a különböző warningokat, hogy ne jöjjenek fel? (általában megkérdi, hogy updatelje-e a linkeket, engedje-e a makrókat, legyen-e read-only)
  Láttam ezekre paramétereket, ha Open-nel nyitnám meg, de a DialogBox-szal nem jöttem rá, hogy lehet beállítani.

  2. Mielőtt átmásolom az adatokat szeretném lecsekkolni a tartományt, hogy van-e reference error rajta (és leállítani a makrót, ha esetleg lenne). Ennek van egyszerű módja?

• Fferi50 Topikgazda

  2023-01-04 17:51:05 #50195

  Új Válasz

  Ú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

  

  Fferi50

  Topikgazda

  válasz Gyufaaa üzenetére #50193

  Szia!
  Milyen Excel verziót és milyen megosztást használtok?
  Üdv.

• Fferi50 Topikgazda

  2023-01-04 17:50:29 #50194

  Új Válasz

  Ú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

  

  Fferi50

  Topikgazda

  válasz lappy üzenetére #50192

  Szia!
  Szerintem cella értékét lehet törölni makróval. Inkább az okozhat gondot, hogy ne törölje minden megnyitáskor, ezt pedig jelzőkkel és feltételekkel meg lehet oldani.
  Továbbá az is kérdés, hogy milyen megosztást használnak. Ha "felhőset", akkor egyáltalán nem működnek a makrók úgy tudom. A közös használatú munkafüzetben viszont működnek.
  Üdv.

• Gyufaaa veterán

  2023-01-04 16:03:18 #50193

  Új Válasz

  Ú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

  

  Gyufaaa

  veterán

  válasz lappy üzenetére #50192

  Normál táblában milyen megoldás lenne?

• lappy őstag

  2023-01-04 15:17:39 #50192

  Új Válasz

  Ú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

  

  lappy

  őstag

  válasz Gyufaaa üzenetére #50190

  megosztott táblázatban automatizált (makrós) törlés szerintem nem lehetséges

• lappy őstag

  2023-01-04 15:16:03 #50191

  Új Válasz

  Ú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

  

  lappy

  őstag

  válasz gyga üzenetére #50189

  Sub last()
Range("A6").Formula = "=lookup(2,1/(not(isblank(A7:A21))),A7:A21)"

End Sub
  ez kerül a modulba és lehet gombhoz rendelni

• Gyufaaa veterán

  2023-01-04 15:14:33 #50190

  Új Válasz

  Ú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

  

  Gyufaaa

  veterán

  Sziasztok,

  szeretnék létrehozni egy táblázatot, melyben többen is dolgozunk. A táblázat "A" oszlopa tartalmaz fix rendelési tételeket, melyekre minden héten "B" oszlopba új mennyiségeket kell beírnunk. A kérdésem az utóbbival lenne ("B" oszlop). Megoldható e, hogy a táblázat minden héten hétfőn csak a beírt mennyiségeket törölje automatikusan, mintha új táblázat lenne, hogy mindenki újra felrögzítse ebbe az oszlopba a mennyiséget? El szeretném kerülni, hogy minden héten új táblázatokat kezeljünk, így viszont minden héten be kell írni az adatokat kötelezően.

• gyga senior tag

  2023-01-04 14:28:21 #50189

  Új Válasz

  Ú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

  

  gyga

  senior tag

  válasz gyga üzenetére #50186

  lehet?

• lappy őstag

  2023-01-04 08:59:47 #50188

  Új Válasz

  Ú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

  

  lappy

  őstag

  válasz hentes555 üzenetére #50187

  =XKERES(1;(A5 : A15=H5)*(B5 : B15=H6);C5 : C15)
  =INDEX(C5 : C15;HOL.VAN(1;(A5 : A15=H5)*(B5 : B15=H6);0))
  A oszlop - név
  B oszlop - modell
  C oszlop - telefonszám

• hentes555 senior tag

  2023-01-04 08:22:13 #50187

  Új Válasz

  Ú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

  

  hentes555

  senior tag

  Sziasztok!
  
  Melyik képlettel tudnám azt megoldani, hogy az Excel kiírja annak a tartománynak a tartalmát, ami megfelel 2 adott feltételnek? (Csak 1 ilyen cella van minden esetben, ami mindkettőnek megfelel)

  Tehát mondjuk egy táblázat 3 oszlopában vannak telefonszámok, nevek, telefon modellek és azt szeretném, hogy írja ki, hogy az xy készülék, ami xy-nál van, milyen telefonszámot takar.

• gyga senior tag

  2023-01-04 07:50:59 #50186

  Új Válasz

  Ú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

  

  gyga

  senior tag

  válasz lappy üzenetére #50185

  igen gombra tenném.

• lappy őstag

  2023-01-03 22:02:15 #50185

  Új Válasz

  Ú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

  

  lappy

  őstag

  válasz gyga üzenetére #50184

  Es ez vmi gombnyomasra történik vagy hogy szeretnéd

• gyga senior tag

  2023-01-03 21:28:21 #50184

  Új Válasz

  Ú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

  

  gyga

  senior tag

  válasz lappy üzenetére #50183

  Ez jó. csak makróba hogy lehet betenni?

• lappy őstag

  2023-01-03 19:39:40 #50183

  Új Válasz

  Ú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

  

  lappy

  őstag

  válasz gyga üzenetére #50182

  =keres(2;1/(nem(üres(a7:a21)));a7:a21)

• gyga senior tag

  2023-01-03 19:26:51 #50182

  Új Válasz

  Ú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

  

  gyga

  senior tag

  Üdv.
  adott A7:A21 fix oszlopban meg kellene keresni az utolsó adatot.
  tehát a7-től folyamatosan van valami szám de lehet hogy az utolsó a7ben vagy lentebb található. Ezt az utolsó adatot kellene az A6ba be másolni.
  Hogy lehet kivitelezni?

• lappy őstag

  2023-01-03 08:40:50 #50181

  Új Válasz

  Ú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

  

  lappy

  őstag

  válasz Pá üzenetére #50179

  Sub Open_workbook_example2()
Dim Myfile_Name As Variant
Dim Myfile_Name_ex As Variant

Myfile_Name = Application.GetOpenFilename(FileFilter:="Excel Files(*.xl*),*.xl*)")
If Myfile_Name <> False Then
Workbooks.Open FileName:=Myfile_Name
End If
Myfile_Name = CreateObject("Scripting.FileSystemObject").GetBaseName(ActiveWorkbook.Name)
Myfile_Name_ex = CreateObject("Scripting.FileSystemObject").GetExtensionName(ActiveWorkbook.Name)
ThisWorkbook.Sheets("Munka1").Range("A1") = Myfile_Name & "." & Myfile_Name_ex

End Sub
  A Munka1 és A1 helyére mehet a saját munkafüzet neve és cella azonosítója

• Delila_1 veterán

  2023-01-03 06:31:27 #50180

  Új Válasz

  Ú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

  

  Delila_1

  veterán

  válasz Pá üzenetére #50179

  Akkor csak a második, Fajl_Valasztas makró kell. Abból is töröld az utolsó sort, ami meghívja a Lapmasolas-t.

• Pá addikt

  2023-01-03 03:24:46 #50179

  Új Válasz

  Ú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

  

  Pá

  addikt

  válasz Delila_1 üzenetére #50171

  Köszönöm szépen (neked és a többieknek is)! Sajnos ez még mindig nem az, amit szeretnék. Megpróbálom még egyszer leírni, csak nem tudom, hogy nagyon leegyszerűsítve lenne célravazető, vagy minden részletet megosztva?

  Nagyon leegyszerűsítve arra lenne szükségem, hogy egy makró megnyisson egy user által kiválaszott file-t és aztán ne csináljon vele semmit. Azon túl, hogy a nevét(lehetőleg kiterjesztéssel, de az se világvége, ha nem) bemásolja annak a file-nak bármelyik cellájába, ahonnan indítottuk a makrót.
  Ebben szeretnék segítséget vagy esetleg egy konfirmációt, hogy ez nem lehetséges és akkor tudok másik irányba is menni, csak azok mind macerásabbak és/vagy kevésbé elegánsak.

  Azért fontos, hogy a képletekkel "szívjam" be az adatokat a másik fileból, mert a másik fileban lévő adatoknak csak egy nagyon kis részére van szükségem. (10,000+ cellányi adatból kell ~100). Viszont az én cellámban folyó számolásoktól függ, hogy éppen mikor melyik 100 adat kell, szóval a lokáció dinamikusan változik. Ráadásul a képleteim már eleve a megfelelő sorrendben, formátumban, és helyre teszik be ,csak a szükséges adatokat, a további feldolgozásra.
  Persze át lehetne tenni az egész sheetet az én fileomba és arra ugyanúgy ráereszthetném a képleteimet. Ezzel az a baj, hogy a másik fileban nem egy tabon vannak a szükséges adatok, hanem többön, ráadásul a számuk 2 - 15 között random módon változik. A "beszívó sheetem" ezt szépen le tudja követni. Nem szeretnék ennyi "szemetet" átpakolni az én fileomban, amikor valójában csak kb az 1%-ra van szükségem. (ezen a fileon kívül még 3 különböző adatbázisból is húz le adatokat a fileom és van 7-8 tab, amin a usereknek kell navigálni és ügyködni, szóval tényleg szeretném tisztán tartani, amennyire lehetséges).
  Harmadrészt a forrás file felett semmi kontrollom nincs. Ha bármit változtatnak benne, akkor a makrót nem biztos, hogy tudom magamnak updatelni. Emiatt minél kevesebb munkát szeretnék a makróval elvégeztetni, tényleg csak, ami szükséges. Viszont a képleteimet nagyon modulárisan legózom össze. Szóval eleve olyan a design, hogy egy "kapcsolótáblában" lévő pár cella átírásával tudom frissíteni az egész sheetnyi képletet a változásoknak megfelelően, szóval így egyszerűbbnek látom a karbantartást.

• lappy őstag

  2023-01-02 22:12:19 #50178

  Új Válasz

  Ú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

  

  lappy

  őstag

  válasz VGYke üzenetére #50177

  =HÓNAP.UTOLSÓ.NAP(A4;-1)+1

• VGYke addikt

  2023-01-02 22:05:07 #50177

  Új Válasz

  Ú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

  

  VGYke

  addikt

  válasz Delila_1 üzenetére #50172

  És akkor a hónap első napja?

• Fire/SOUL/CD félisten

  2023-01-02 22:03:12 #50176

  Új Válasz

  Ú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

  

  Fire/SOUL/CD

  félisten

  válasz lappy üzenetére #50175

  

• lappy őstag

  2023-01-02 21:53:07 #50175

  Új Válasz

  Ú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

  

  lappy

  őstag

  válasz Fire/SOUL/CD üzenetére #50174

  

• Fire/SOUL/CD félisten

  2023-01-02 21:41:25 #50174

  Új Válasz

  Ú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

  

  Fire/SOUL/CD

  félisten

  válasz Delila_1 üzenetére #50173

  Ez jó vót', de tényleg...
  Puszi a hasadra, meg egy araszra lejjebb kis Hölgy, de tényleg...
  (Na most leszek kitiltva)

  UI: Olybá' tűnik, hogy 2 hónapon belül megyünk, Debrecenbe... Majd szólok, ha igaz...

• Delila_1 veterán

  2023-01-02 20:33:15 #50173

  Új Válasz

  Ú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

  

  Delila_1

  veterán

  válasz Fire/SOUL/CD üzenetére #50169

  

• Delila_1 veterán

  2023-01-02 20:32:27 #50172

  Új Válasz

  Ú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

  

  Delila_1

  veterán

  válasz VGYke üzenetére #50170

  =HÓNAP.UTOLSÓ.NAP(A4;0)+0,999988426

• Delila_1 veterán

  2023-01-02 20:27:19 #50171

  Új Válasz

  Ú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

  

  Delila_1

  veterán

  válasz Pá üzenetére #50168

  A lenti 3 makrót másold be egy modulba. Az elsőt indítod, az meghívja a másik kettőt.
  Törli a Store lapot, majd feldob egy fájlválasztó ablakot.
  Indítás előtt a harmadik makróban a Munka2 nevet írd át az Update füzeted másolandó lapja nevére.
  Nem kell képletekkel "beszívni" az adatokat, mert az Update füzetből a teljes lapot másoljuk az Original-ba, majd az esetleges képletek helyére értékeket illesztünk be. Ez így gyorsabb, de az összevont cellák miatt mindenféle hiba állna elő nélküle.

  Option Explicit
Public WB

Sub Store_lap_torlese()
Dim FN
Application.DisplayAlerts = False
On Error Resume Next
Set FN = Sheets("Store")
If Err.Number = 0 Then Sheets("Store").Delete
On Error GoTo 0
Application.DisplayAlerts = True
Fajl_Valasztas
End Sub

Sub Fajl_Valasztas()
Dim b As Integer
Set WB = Application.FileDialog(3)
With WB
.AllowMultiSelect = False
.Show
If .SelectedItems.Count = 0 Then
MsgBox "Nem választottál fájlt, befejezzük.", vbInformation, "Értesítés"
Exit Sub
Else
WB = .SelectedItems(1)
End If
End With
For b = Len(WB) To 1 Step -1
If Mid(WB, b, 1) = "\" Then
WB = Mid(WB, b + 1, 50)
Exit For
End If
Next
Sheets("Name").Cells(1) = WB
Workbooks.Open WB
Lapmasolas WB
End Sub

Sub Lapmasolas(WB)
Sheets("Munka2").Copy After:=Workbooks("Original.xlsm").Sheets(2)
Sheets("Munka2").Name = "Store"
Columns("A:Z").Copy
Range("A1").PasteSpecial xlPasteValues
Application.DisplayAlerts = False
Workbooks(WB).Close False
Application.DisplayAlerts = True
Sheets("Store").Cells(1).Select
End Sub

• VGYke addikt

  2023-01-02 20:27:06 #50170

  Új Válasz

  Ú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

  

  VGYke

  addikt

  Sziasztok!
  BÚÉK a csoport tagjainak!
  Egy nem túl bonyolult kérdéssel indítanám az évet, amit nem tudok egyszerűen megoldani, de lehet egyszerű a megoldás!
  Dátum függfények; Dátum, Óra, Perc:
  Ha a dátum függfényeket használom, azok adott nap (Pl.2022.12.31) 0:00 percére vonatkoznak (hóanp első és utolsó napja, képletezve)
  De ez így nem jó, mert a hónap utolsó napja nem 2022.12.31 00:00, hanem 2022.12.31 23:59:59, így az első nap: 2022.12.01. 0:00 csak hogy minden másodperc meglegyen!
  
  Szóval, hogyan kellene képletezni A "Dátum Hónap első napja" és Dátum Hónap utolsó napja" képletet, hogy a későbbi számítások másodperc pontosak legyenek?

• Fire/SOUL/CD félisten

  2023-01-02 20:05:37 #50169

  Új Válasz

  Ú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

  

  Fire/SOUL/CD

  félisten

  BÚÉK mindenkinek...

• Pá addikt

  2023-01-02 17:29:41 #50168

  Új Válasz

  Ú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

  

  Pá

  addikt

  válasz lappy üzenetére #50167

  Köszönöm szépen, hogy megnézted. Sajnos ez egyelőre nem pont az, amit akartam, viszont ad reményt, hogy megoldható lesz, szóval már ennek is örülök
  Megpróbálom másképp elmondani, mit szeretnék elérni, mert belátom, hogy elsőre nem tűnik logikusnak. (de van mögötte logika, csak nem intuitiv a részletek ismerete nélkül)

  Van egy excel "Original" --> ez van nyitva és innen indul a makró. Ezen belül van 3 sheet. Legyenek, "Name", "Feed", "Store".

  Van egy másik excel "Update". Ezzel csak annyit kell csináljon a makró, hogy megnyitja, majd a file nevét (lehetőleg kiterjesztéssel, de elérési útvonal nélkül) bemásolja az Original file Name sheetjére, mondjuk A1-be. Más dolog nincs a a frissen megnyitott file-lal. Szóval a makró nem mozgat adatokat a két file között.

  Az Update fileból szükséges adatokat az Original file Feed sheetje beszívja, amint a file név bent van a Name sheeten. (ez be van képletezve). Ide esetleg be lehet tenni 1mp delay-t, hogy biztos frissüljön, illetve egy checket, hogy a formulák Feed!A1:Z200-ban hibára futottak-e.

  Ez után a makró annyit kéne csináljon, hogy az Original fileon belül Feed!A1:Z200-ból a formulák eredményét valueként átmentse Store!A1:Z200-ba.

• lappy őstag

  2023-01-02 10:13:53 #50167

  Új Válasz

  Ú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

  

  lappy

  őstag

  válasz Pá üzenetére #50166

  Sub Get_Data_From_File()
Dim FileToOpen As Variant
Dim OpenBook As Workbook
Application.ScreenUpdating = False
FileToOpen = Application.GetOpenFilename(Title:="Browse for your File & Import Range", FileFilter:="Excel Files (*.xls*),*xls*")
If FileToOpen <> False Then
Set OpenBook = Application.Workbooks.Open(FileToOpen)
OpenBook.Sheets(1).Range("A1:Z200").Copy
ThisWorkbook.Worksheets("SelectFile").Range("A1").PasteSpecial xlPasteValues
OpenBook.Close False

End If
Application.ScreenUpdating = True
End Sub
  A Sheet(1) -nél az 1 helyére adhatod meg hogy hányadik munkafüzet legyen
  Még azt nem sikerült megcsinálnom hogy a munkafüzetek közül is lehessen választani
  ezzel bemásolod az adatokat és innen veszed át az indirekt függvényekkel ami kell

• Pá addikt

  2023-01-02 02:15:47 #50166

  Új Válasz

  Ú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

  

  Pá

  addikt

  válasz Pá üzenetére #50160

  Igazából arra jutottam, hogy a jelenlegi INDIRECT-es megoldásom minden szempontból jó begyűjteni az adatokat, szóval megtartanám. (és elég macerás lenne felsetupolni egy új rendszert)

  Az egyetlen hátránya, hogy minden adatot elvesztek, ahogy bezárom azt a file-t, ahonnan veszem az adatokat. Ezt úgy hidalnám át, hogy klónozom azt a sheetet ami begyűjti az adatokat.
  Az eredeti lenne a Feed sheet. Továbbra is szépen beszippantaná az adatokat a megnyitott file-ból. A klón lenne a Store sheet, ide csak "Value"-ként tenném át az adatokat egy az egyben a Feed sheetről. Innentől a fileomban minden további cella csak a Store sheetre hivatkozna, ahol megmaradnának az adatok, egészen addig, amíg újra meg nem nyitom a másik file-t, ami a Feed sheeten keresztül beupdatelné a Store sheetemet.

  Viszont ehhez macro-t kéne használnom, amihez sajnos csak nagyon minimálisan értek, szóval ehhez kéne a segítségetek. Leírom, mi lenne a legideálisabb működés számomra, aztán max egyszerűsítünk rajta, ha valamelyik rész túl problémás.

  Macro - Gombnyomásra indul
  1. Felugrik a file megnyitás dialog box és user kiválasztja és megnyitja a másik file-t, amiből átszívjuk az adatokat. Innentől nevezzük Update.xls-nek. (A valóságban ennek a neve teljesen random módon változik, a kiterjesztése pedig lehet bármilyen excel formátum, szóval xls, xlsx, xlsm stb)

  2. Az újonnan megnyitott file nevét kiterjesztéssel együtt be kéne írni egy cellába az én fileomba, hogy táplálja az INDIRECT függvényeket a Feed sheeten. Szóval abba, a fileba ahonnan a macro-t indítottuk. Legyen mostantól Original.xlsx. Írja mondjuk a Sheet1!A1-be.
  (Ezt a lépést nem tudtam megoldani egyáltalán, de remélem van rá valami okos mód. Azt talán ki lehet használni, hogy gondolom az Update.xls lesz az active.workbook, mivel épp most nyitottuk meg. De sajnos annyira nem értek vba-hoz, hogy ezt ki tudjam használni és át tudjam lopni a nevét a macrot futtató workbookomba. Legjobb lenne a file nevet kiterjesztéssel együtt, de elérési útvonal nélkül beírni. Ha nagyon nem megy másképp, akkor lehet kiterjesztés nélkül is. Egyébként az én fileom neve sem fix, de arra talán lehet hivatkozni úgy, hogy ahonnan fut a macro. Nehezítés, hogy a usereknek ezeken kívül még számos másik excele is lehet nyitva, amik nem kéne bezavarjanak)

  3. Ide esetleg be lehet tenni 1mp delay-t, hogy biztos frissüljön be minden adat a Feed sheeten. Nem tudom ez szükséges-e. Viszont mindenképp jó lenne egy check, hogy bármelyik formula errorra futott-e a Feed sheeten(elég az A1:Z200 range-t nézni). Ha igen, akkor le is állhat a macro egy hibaüzenettel.

  4. Ha nincs error, akkor Feed!A1:Z200 range-ben a formulák eredményeit kéne áttenni valueként a Store!A1:Z200-ba. (nem tudom számít-e, de ebben a range-ben van néhány merged cella is. Illetve nem kizárólag formulák vannak, hanem néhány szöveges cella is, leginkább a táblázat headerjei)

  5. Kész is, sikeres message box-szal zárulhat az update.

• Pá addikt

  2022-12-30 21:57:40 #50165

  Új Válasz

  Ú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

  

  Pá

  addikt

  válasz ny.janos üzenetére #50164

  köszi szépen, főleg, hogy 2x is megírtad.
  kipróbálom, mire jutok vele.

• ny.janos tag

  2022-12-30 12:44:35 #50164

  Új Válasz

  Ú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

  

  ny.janos

  tag

  válasz Pá üzenetére #50161

  Szia!

  Akkor kezdem előröl az előbbi elveszett hozzászólás után.

  A dátum átalakításához (a kérdésed alapján végzett) kísérletezgetésem alapján megfelelő megoldás lehet a szövegből oszlopok átalakítás, ha az utolsó lépésben megadod a dátum formátumát. Ha a dátumaid több formátumban vannak (ahogy írtad), akkor többször egymás után kell az átalakítást elvégezned. Az átalakítás a dátum formátumú cellákat nem fogja elrontani, a nem dátum formátumúakat ellenben megfelelő formátumra fogja alakítani. Az egyetlen (általam azonosított) probléma, ha a dátumok között NHÉ és HNÉ formátum egyaránt szerepel. Ez esetben összetettebb megoldást kellene keresni. Az átalakítás mikéntjéről Horváth Imre ebben a bejegyzésben írt részletesen.
  Alkalmas lehet az átalakításra a Power Query is, de míg a szövegből oszlopok átalakítás a 202212.10 hibás formátummal is megbirkózik, addig előbbivel ezt nekem nem sikerült kezelnem (biztos lehet, csak az általam nem ismert megoldást igényelne).

  A megelőző hozzászólásod kapcsán (főként az alapján, hogy a bemeneti adataid több fájl több munkalapján találhatóak, de a struktúra azonos) szintén a Power Query alkalmazását javasom. A betöltés történhet akár az általad készített fájlba (ez esetben nem kell a bemeneti adatokat tartalmazó fájlokat megnyitnod) és azt is be tudod állatíni, hogy az adatfrissítés megtörténjen automatikusan, mikor a fájlodat megnyitod. A megoldásról itt találsz egy részletes, könnyen érthető, képernyőképekkel illusztrált leírást.

  Sok sikert!

• ny.janos tag

  2022-12-30 12:22:13 #50163

  Új Válasz

  Ú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

  

  ny.janos

  tag

  válasz Pá üzenetére #50161

  Megírtam egy komplett választ és mire elküldtem valamiért csak a köszönöm maradt meg belőle. Pedig hányszor megfogadtam már, hogy hosszabb hozzászólást nem írok böngészőben, hanem word-ben.

• lappy őstag

  2022-12-30 07:25:35 #50162

  Új Válasz

  Ú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

  

  lappy

  őstag

  válasz Pá üzenetére #50161

  Itt a speciális karaktereket kell nezni es ha azok megvannak akkor abból lehet dátumot összehozni

• Pá addikt

  2022-12-30 02:59:16 #50161

  Új Válasz

  Ú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

  

  Pá

  addikt

  Kicsit az előzőhöz kapcsolódik, de inkább külön postba teszem, hogy ne keveredjen.

  A másik táblázatban néha szövegként van megadva a dátum. PL, valami nagyokos így írja be:
  '30/06/2023

  Ezt hogy tudnám a legegyszerűbben bepattintani a DATE függvénybe? Vagy bármi más módon használható dátumot faragni belőle? Az a baj, hogy nem mindig pont így szar, néha másképp rontják el, szóval jó lenne egy valami általános dátumgyártó csodaszer, ha egyáltalán létezik ilyen. (text-to-column annyira nem működik, mivel ez alapvetően egy formula eredménye és a formulát akarja szétbombázni)

  szerk: sokszor viszont jól van megadva a dátum. Szóval arra is kéne egy függvény vagy valami, amivel először el tudom dönteni, hogy használható-e a dolog, vagy sem. Hogy aztán csak az utóbbira szabadítsam rá a csodaszert.

• Pá addikt

  2022-12-30 02:48:09 #50160

  Új Válasz

  Ú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

  

  Pá

  addikt

  Sziasztok!

  Van egy nagy táblázatom (enyém, én szerkesztem), amihez egy másik táblázatból (erre nincs befolyásom, készen kapom) kell adatokat áthúznom . Eddig egyszerű, de van néhány bonyolító tényező.

  - Ez a másik táblázat valójában több táblázat. Ami itt lényeges, hogy a táblázat szerkezete ugyanaz, tehát a szükséges adatok pont ugyanazokon a tabokon és cellákban vannak. Viszont a táblázat neve teljesen random mód változik. Muszáj valahogy updatelnem.
  - Az én táblázatomban dinamikusan kell tudnom változtatni, hogy a másikból épp melyik tabokról és cellákból milyen adatokat húzok ki.
  - A másik táblázatból 10+ tabról kell több száz cellányi adat, szóval az nem opció, hogy kézzel összekötögetem és azzal elvagyok. Mindenképp formulával kell megadni, hogy honnan és miket frissítsen.
  - Az én táblázatomat igazából én csak fejlesztem, mások használnák helyettem, így fontos, hogy minél inkább userfriendly és bolondbiztos legyen.

  Szóval a kérdésem, hogy mi a legoptimálisabb megoldás a fenti paramétereket figyelembe véve?

  Jelenleg úgy oldottam meg, hogy az én táblázatomba egy cellába beírom a másik táblázat nevét (XY.xls) és onnantól INDIRECT fügvénnyel össze tudom legózni, hogy épp melyik tabjának melyik cellájából kell az adat.

  Ez nagyon jól működik, szóval szívem szerint megtartanám az INDIRECTES megoldást. Viszont két hátránya van, amit szeretnék kiküszöbölni.
  1. A másik táblázatot is meg kell nyitnom jelenleg, hogy áthúzza az adatokat. (ez a kisebbik baj).
  2. Minden adatot azonnal elfelejt, ahogy bezárom a másik táblázatot.

  Ez így sajnos nem jó. Ideális esetben úgy kéne működjön, hogy amikor kijön a másik táblázat, akkor abból befrissítem az adatokat az enyémben. Utána a másik táblázatot elfelejtem és dolgozom az enyémben az így szerzett adatokkal. Aztán ha néhány nap vagy hét múlva megint frissül a másik táblázat, akkor megint befrissítem az enyémet és utána megint elvagyok csak azzal.

• vgyuri őstag

  2022-12-29 15:27:09 #50159

  Új Válasz

  Ú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

  

  vgyuri

  őstag

  válasz Dilikutya üzenetére #50158

  Esetleg ez? 1,2,3 közül
  - ha 1-es, akkor számot ad vissza
  - ha 2-es, akkor nagybetűt
  - ha 3-as, akkor kisbetűt

  =KARAKTER(HA(VÉLETLEN.KÖZÖTT(1;3)=1;VÉLETLEN.KÖZÖTT(48;57);HA(VÉLETLEN.KÖZÖTT(2;3)=2;VÉLETLEN.KÖZÖTT(65;90);VÉLETLEN.KÖZÖTT(97;122))))

  Ezt tetszőleges karakterrekkel is tudod módosítani (a 62-es értéket is módosítsd ha bővíted):
  =KÖZÉP("0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz";VÉLETLEN.KÖZÖTT(1;62);1)

• Dilikutya félisten

  2022-12-29 12:28:16 #50158

  Új Válasz

  Ú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

  

  Dilikutya

  félisten

  Hello!

  Hogy tudnám ebből a speciális karaktereket kidobni?

  =KARAKTER(VÉLETLEN.KÖZÖTT(48;122))

  Csak a számok, betűk kellenek, vagy ez egy lépésben nem megy? Jelszógenerátort barkácsolnék magamnak.

• hódmaci senior tag

  2022-12-28 23:40:30 #50157

  Új Válasz

  Ú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

  

  hódmaci

  senior tag

  válasz lappy üzenetére #50156

  Szuper!
  Köszönöm az iránymutatást.

• lappy őstag

  2022-12-28 21:56:03 #50156

  Új Válasz

  Ú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

  

  lappy

  őstag

  válasz hódmaci üzenetére #50155

  Feltételes formázást olvasd el

• hódmaci senior tag

  2022-12-28 21:30:39 #50155

  Új Válasz

  Ú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

  

  hódmaci

  senior tag

  Sziasztok!

  Létezik olyan függvény amely figyeli az adott oszlopot és ha abban az oszlopban adott sorba meghatározott szöveg kerül akkor a Cellák kitöltése egyszínű színekkel kiválasztódik?

  pl.:
  B oszlopot és D oszlopot figyelem

  B1 mezőbe '1" írok akkor a Cella kitöltése zöld szín lesz de ha "2" akkor pedig piros ha "3" akkor meg kék.

  B8 mezőbe '1" írok akkor a Cella kitöltése zöld szín lesz de ha "2" akkor pedig piros ha "3" akkor meg kék.

  Ugyanakkor figyeli a D oszlopot is
  és ugyan azok a szabályok érvényesek mint a B oszlopnál.

  És ugyan így tovább általam választott oszlopoknál.

• Delila_1 veterán

  2022-12-26 13:41:17 #50154

  Új Válasz

  Ú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

  

  Delila_1

  veterán

  válasz Troy. üzenetére #50153

  Active.Workbook.Save ActiveWorkbook.Path & "\" And "újfájlneve.xlsm"

• Troy. addikt

  2022-12-26 13:35:22 #50153

  Új Válasz

  Ú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

  

  Troy.

  addikt

  válasz Delila_1 üzenetére #50152

  Köszi a választ, ez kell nekem.

  3. Amit még egyelőre nem oldottam meg, hogy ugyanabba az adott mappába mentse vissza a makrót, ahol az eredeti fájl van.

  Feltételezem, hogy valahogy ez is megoldható.

• Delila_1 veterán

  2022-12-24 06:38:29 #50152

  Új Válasz

  Ú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

  

  Delila_1

  veterán

  válasz Troy. üzenetére #50150

  Nézd meg a Téma összefoglalóban a personalról írtakat.
  Létrehozod a füzetet, majd bemásolod bele a már régebben elkészült makró(i)dat. Kitehetsz a Gyorselérési eszköztárra hozzá(juk) ikont.

• lappy őstag

  2022-12-23 23:19:50 #50151

  Új Válasz

  Ú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

  

  lappy

  őstag

  válasz Troy. üzenetére #50150

  Personal makró nem jó neked?

• Troy. addikt

  2022-12-23 21:57:12 #50150

  Új Válasz

  Ú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

  

  Troy.

  addikt

  Sziasztok,

  Mint makrózáshoz hozzá nem értő, felmerült bennem egy-két kérdés vele kapcsolatban.
  1. Egy makró office verziótól függetlenül képes lefutni bármelyik verzión (Itt most a Microsoft 365 és Office 2019-re gondolok elsősorban)?
  2. Lehet, hogy buta kérdés, de miképp tudom azt megcsinálni, hogy minden xlsx fájlban jelen legyen a makró (ezáltal a leggyorsabban futtatni)?
  Röviden, hogy mire is használnék makrót: Adott egy program, amiből xlsx formátumban nyerek ki adatokat. Ezeket az adatokat makróval formáznám meg, hogy ne kelljen manuálisan minden egyes alkalommal, kézzel formázni. Lényegében ez meg is volna, bár tény, hogy nem kód írásával, hanem leginkább makró rögzítéssel készült.
  Tehát leginkább azt szeretném, hogy ha van egy ilyen xlsx-em, akkor csak lefuttatom a makrót és mentem.
  3. Amit még egyelőre nem oldottam meg, hogy ugyanabba az adott mappába mentse vissza a makrót, ahol az eredeti fájl van.

  üdv.

• Vladek83 tag

  2022-12-22 14:53:40 #50149

  Új Válasz

  Ú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

  

  Vladek83

  tag

  Sziasztok,

  esetleg van lehetőség webes felületen elérni/használni makrókkal telitűzdelt táblázatot..?
  Nézegettem, de sajnos nem igazán jártam sikerrel..
  Próbának néztem egy oldalt, de nem kicsit túlárazott..

  üdv,

• csferke senior tag

  2022-12-21 08:50:04 #50148

  Új Válasz

  Ú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

  

  csferke

  senior tag

  válasz lappy üzenetére #50147

  6. This code is only available when you use Outlook as your mail program.
  Nekem viszont Thunderbird-ben kell küldenem.

• lappy őstag

  2022-12-21 07:51:14 #50147

  Új Válasz

  Ú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

  

  lappy

  őstag

  válasz csferke üzenetére #50146

  https://www.extendoffice.com/documents/excel/4412-excel-save-as-pdf-and-email.html
  Ez alapnak jó szerintem

• csferke senior tag

  2022-12-21 06:47:18 #50146

  Új Válasz

  Ú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

  

  csferke

  senior tag

  Sziasztok!
  Egy kis segítséget kérnék tőletek.
  Egy munkalapon létrehozott adatlapot makróból kiíratok egy meghatározott névvel ( a W3-as mező tartalma) és megadott címre (G:\valahova) PDF formában.
  Egy újabb igény szerint kellene most ezt a pdf-et automatikusan elküldeni, Thunderbird-ben, egy e-mail címről (ami nem változik) egy a munkalap adott mezejében (W9) megadott e-mail címre.
  Segítségetek kérem.
  köszi

• Delila_1 veterán

  2022-12-17 21:01:11 #50145

  Új Válasz

  Ú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

  

  Delila_1

  veterán

  válasz Játékos üzenetére #50144

  Szívesen.

• Játékos addikt

  2022-12-17 20:59:07 #50144

  Új Válasz

  Ú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

  

  Játékos

  addikt

  válasz Delila_1 üzenetére #50143

  Köszönöm szépen!

• Delila_1 veterán

  2022-12-17 19:35:03 #50143

  Új Válasz

  Ú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

  

  Delila_1

  veterán

  válasz Játékos üzenetére #50142

  Az utóbbi.

• Játékos addikt

  2022-12-17 16:13:42 #50142

  Új Válasz

  Ú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

  

  Játékos

  addikt

  válasz Delila_1 üzenetére #50141

  Szia!
  Nagyon köszönöm a választ, kitaláltad a gondolatomat! Viszont a kérdés lényege, hogy miként lehet az, hogy pl. a cég nevét felajánlja (ha már volt az oszlopban feljebb), de pl. az adószámát soha, egyik cégnek sem. Köze lehet az adószám formátumához? (12345678-01-1)
  Vagy alapvetően azért, mert szám?

• Delila_1 veterán

  2022-12-17 15:18:04 #50141

  Új Válasz

  Ú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

  

  Delila_1

  veterán

  válasz Játékos üzenetére #50140

  Próbálom kitalálni, mire gondolsz. Talán arra, hogy ha egy oszlopban van már olyan adat, amit az új sorba kezdesz bevinni, felajánlja a már meglévőt.
  A beállításoknál tudod ezt a funkciót beállítani.
  

• Játékos addikt

  2022-12-17 14:13:08 #50140

  Új Válasz

  Ú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

  

  Játékos

  addikt

  Sziasztok!
  
  Kérdezni szeretném, hogy minek a függvénye, hogy egy előzőleg beírt adatot a következőkben felkínáljon újra a program? Egyiket kínálja, másikat nem, és nem fedeztem fel benne semmi rendszert.
  Előre is köszönöm a segítséget.

• eszgé100 őstag

  2022-12-16 17:04:45 #50139

  Új Válasz

  Ú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

  

  eszgé100

  őstag

  válasz Fferi50 üzenetére #50138

  bakker, legegyszerubb dolgokra nem gondol sosem az ember, nem a legszebb, de legalabb tenyleg mukodik

• Fferi50 Topikgazda

  2022-12-16 15:12:15 #50138

  Új Válasz

  Ú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

  

  Fferi50

  Topikgazda

  válasz eszgé100 üzenetére #50137

  Szia!
  Úgy tűnik, hogy a SaveCopyAs nem szereti, ha a fájlt a hálózatra szeretnénk felmásolni. Valószínűleg egy jó kis bug. Jelezni kellene Redmond felé.
  Megkerülő megoldás:
  Megjegyzed a fájl nevét és elérési útját egy változóban.
  Ezután SaveAs a fájlt a hálózatra, majd ismét SaveAs a változóban eltárolt paraméterekkel. Így visszajutsz az eredeti fájlodhoz. Szomorú, tudom, de legalább működik.
  Üdv.

• eszgé100 őstag

  2022-12-16 13:37:45 #50137

  Új Válasz

  Ú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

  

  eszgé100

  őstag

  Sub saveweeklycopy()
Dim name As String
Dim sharepoint As String
Dim weekcom As Date
Dim weeknum As Integer

weekcom = Sheets("Sheet1").Range("B2")
weeknum = Sheets("Sheet1").Range("B3")

name = Format(weekcom, "YYYYMMDD") & ("_WK" & weeknum) & ".xlsm"
sharepoint = "https://companyname.sharepoint.com/sites/projectname/Shared%20Documents/ourfolders/myfolders/Trial/"

MsgBox sharepoint & name
ThisWorkbook.SaveCopyAs filename:=sharepoint & name

End Sub

  Sziasztok!

  az alabbi kod remekul mukodik, ha SaveAs-t hasznalok, viszont annyi a gond vele, hogy nekem egy biztonsagi mentest kellene keszitenem az eredeti fajlon viszont szeretnek tovabb dolgozni. SaveCopyAs Runtime 1004-el elszall...
  Sorry we couldn't find xy file. Is it possible it was moved, renamed or deleted?
  SaveAs siman letrehozza az uj fajlt, nem ertem, hogy mi lehet a ketto kozt a kulonbseg?
  Mi a pontos modja, hogy biztonsagi mentest csinaljak, majd folytathassam a munkat az eredetin?

• Fferi50 Topikgazda

  2022-12-16 10:27:16 #50136

  Új Válasz

  Ú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

  

  Fferi50

  Topikgazda

  válasz friccccc üzenetére #50135

  Szia!
  "Nekem az OK ra kellene az idő. De nem ismeri fel.... Ha kézzel beírom a cellába akkor jó....."
  Meg tudnád mutatni azt a függvényt, ami az OK-t beírja az adott cellába?
  Egyáltalán, bekerül a cellába az OK érték? Szövegként kerül be? Lépésenként futtatva ellenőrizted a cella tartalmát? Képet esetleg mutatnál róla?
  Üdv.

• friccccc tag

  2022-12-16 10:22:25 #50135

  Új Válasz

  Ú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

  

  friccccc

  tag

  válasz Fferi50 üzenetére #50134

  Szia
  Elég hosszú fv van ott összetett ha vagy és fv ek keveréke. Különböző eredményekkel(pl "kevesebb" "több" stb. Nekem az OK ra kellene az idő. De nem ismeri fel.... Ha kézzel beírom a cellába akkor jó.....
  ezt kéne valahogy megoldani :S

• Fferi50 Topikgazda

  2022-12-16 10:05:50 #50134

  Új Válasz

  Ú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

  

  Fferi50

  Topikgazda

  válasz friccccc üzenetére #50133

  Szia!
  Mit jelent a nem OK? Hibával megáll?
  Próbáltad lépésenként futtatni?
  Hol van ez a makrórész?
  Üdv.

• friccccc tag

  2022-12-16 10:01:53 #50133

  Új Válasz

  Ú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

  

  friccccc

  tag

  válasz Fferi50 üzenetére #50132

  X3 ban egy számláló ami az aktuális időt írja (másodperc pontossággal).
  ELSE ág nélkül nekem működött több ilyen is már, ezért azt ki szoktam hagyni
  nm probléma, ha a következő "OK" ig ott marad előző időpont.
  Köszi
  üdv

• Fferi50 Topikgazda

  2022-12-16 09:52:28 #50132

  Új Válasz

  Ú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

  

  Fferi50

  Topikgazda

  válasz friccccc üzenetére #50131

  Szia!
  Nincs az ELSE ág kezelve, mi történjen, ha a feltétel nem teljesül? Mi van az X3 cellában?
  Üdv.

• friccccc tag

  2022-12-16 09:35:09 #50131

  Új Válasz

  Ú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

  

  friccccc

  tag

  válasz lappy üzenetére #50128

  Sajnos nm ok.
  Egyszerűsíteni akartam , de akkor leírom , hátha ez sem mind1.
  Dim i As Integer
Application.EnableEvents = False
For i = 1 To 200 Step 5

If Cells(i, 3).Value = "OK" And Cells(i, 10).Value = "ÉN" Then
Cells(i, 100).Value = Range("X3").Value
End If
Next

Application.EnableEvents = True
  
  End Sub
  
  Köszi a segítséget!

• friccccc tag

  2022-12-16 09:18:08 #50130

  Új Válasz

  Ú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

  

  friccccc

  tag

  válasz lappy üzenetére #50127

  A1 be többször automat változik h OK v sem .ill
  C1 értéke automat változik.
  és B1 ben szeretném ha ottmaradna C1 értéke.

• Delila_1 veterán

  2022-12-16 09:16:26 #50129

  Új Válasz

  Ú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

  

  Delila_1

  veterán

  válasz lappy üzenetére #50128

  Az Else ágban legyen a C1 értéke ""

• lappy őstag

  2022-12-16 09:12:37 #50128

  Új Válasz

  Ú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

  

  lappy

  őstag

  válasz lappy üzenetére #50127

  If Range("A1").Value = "OK" Then
Range("B1").Value = Range("C1").Value

End If

End Sub
  nekem ez így működött ahogy az A1 változik lefut viszont ha újra megváltozik és nem OK van akkor viszont bent ragad a C1 értéke!

• lappy őstag

  2022-12-16 09:05:04 #50127

  Új Válasz

  Ú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

  

  lappy

  őstag

  válasz friccccc üzenetére #50126

  de miért kell makró? ha függvény is elég

• friccccc tag

  2022-12-16 08:53:51 #50126

  Új Válasz

  Ú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

  

  friccccc

  tag

  Sziasztok!
  Van egy fv em ami ha teljesülnek a feltételek A1 be kiadja, hogy "OK". Ekkor VBA val ki szeretném iratni B1-be, C1 értékét.
  én így írtam , de sajnos nm ismeri fel ha OK jön A1 be...(gondolom a képlet miatt, mert ha csak simán képlet helyett kézzel beírom A1 be, hogy OK akkor szépen teszi a dolgát.).:
  
  Private Sub Worksheet_Calculate()
  If Range ("A1")="OK" Then
  Range("C1")=Range("B1")
  End if
  
  Köszi előre is.

• spect80 őstag

  2022-12-15 19:26:36 #50125

  Új Válasz

  Ú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

  

  spect80

  őstag

  válasz lappy üzenetére #50118

  Köszönöm!

• Fferi50 Topikgazda

  2022-12-15 17:13:31 #50124

  Új Válasz

  Ú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

  

  Fferi50

  Topikgazda

  válasz Melorin üzenetére #50122

  Szia!
  Szerintem is makrós megoldás kell:
  A rendelés táblád eseménykezelőjébe kell egy rövid makró, amelyik bemásolja az "adatbázisból" a képet.
  Pl.
  Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 1 Then
   If IsEmpty(Target) Then Exit Sub
   Application.EnableEvents = False
   Sheets("Adatbázis").Range("A1:A50000").Find(what:=Target.Row, LookIn:=xlValues, lookat:=xlWhole).Offset(0, 1).Copy Destination:=Target.Offset(0, 1)
   Application.EnableEvents = True
End If
End Sub
  Amikor a sor első cellájába érték kerül, megkeresi az adatbázisban és átmásolja a képet. A feltételezés itt az, hogy az adatbázisban az anyag azonosító az első oszlop és mellette van a kép továbbá a sor második cellájába kell másolni.
  Nincs benne hibakezelés, tehát ha olyan érték kerülne be, ami nincs az adatbázisban, akkor hibával megáll. Természetesen ezt lehet kezelni.
  Figyelem! Ebben az esetben makróbarátként kell mentened azt a fájlt, amivel dolgozol. A mások által nézett fájl már lehet makrómentes.
  Üdv.

• lappy őstag

  2022-12-15 16:36:47 #50123

  Új Válasz

  Ú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

  

  lappy

  őstag

  válasz Melorin üzenetére #50122

  akkor vmi makrós megoldás

• Melorin addikt

  2022-12-15 16:20:38 #50122

  Új Válasz

  Ú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

  

  Melorin

  addikt

  válasz Fferi50 üzenetére #50121

  Havi átlag 200, de max 300 anyag rendelését kell kezelnem, amikhez kell egy mini kép, hogy tudja mindenki, hogy milyen anyagról van szó. Az adatokat, árakat stb cikkszám alapján tölti ki a táblázat fkeres-sel egy "adatbázisból" , ezt kéne megtoldani még egy oszloppal amiben egy mini kép lenne az anyagokhoz.
  Mivel ez a lista folyton változik, nem akarom kézzel ki-be pakolgatni a képeket, automatizálni kellene.

• Fferi50 Topikgazda

  2022-12-15 16:15:42 #50121

  Új Válasz

  Ú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

  

  Fferi50

  Topikgazda

  válasz Melorin üzenetére #50120

  Szia!
  Ez egyenlőre messze vezet... Küzdök egy kört még a mintákkal, aztán jelentkezem az eredménnyel.
  Miért kell neked 300 külön kép? Esetleg lehet valamilyen más megoldás is, ha pontosabban tudjuk, mire szeretnéd használni.
  Üdv.

• Melorin addikt

  2022-12-15 15:22:05 #50120

  Új Válasz

  Ú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

  

  Melorin

  addikt

  válasz Fferi50 üzenetére #50115

  Igen, megcsináltam, ez az eredmény :
  [kép]
  Nem igazán értem, hogy miért pont azt a képet tölti be mindegyikhez, hiszen a névkezelő függvény az E3 cellára hivatkozik a kép meg a C7-ben van.

• Fferi50 Topikgazda

  2022-12-15 15:16:20 #50119

  Új Válasz

  Ú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

  

  Fferi50

  Topikgazda

  válasz Melorin üzenetére #50114

  Bocsánatot kérek.
  Most letöltöttem a mintapéldát. Megvizsgálom, miként lehet a többszörözést megoldani.
  Elvileg kellene neki úgy menni, ahogyan írtam, de nyilván a gyakorlat más is lehet.
  Üdv.

• lappy őstag

  2022-12-15 15:13:15 #50118

  Új Válasz

  Ú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

  

  lappy

  őstag

  válasz spect80 üzenetére #50116

  =végidő-kezdőidő-IDŐ(10;0;0)

• lappy őstag

  2022-12-15 15:05:25 #50117

  Új Válasz

  Ú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

  

  lappy

  őstag

  válasz spect80 üzenetére #50116

  akkor segédoszlopokkal talán meg lehetne megoldani elsőre

• spect80 őstag

  2022-12-15 14:53:16 #50116

  Új Válasz

  Ú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

  

  spect80

  őstag

  válasz lappy üzenetére #50104

  1 sorban van egy kezdődátum és egy végdátum pl.:
  Kezdés Vége
  2022.10.10 06:00:00 2022.10.10 21:30:00

  Csak azt szummáznám, ami 2022.10.10 10:00:00 óra előtt, és 20:00:00 után történt, azaz ennek a sornak az eredménye 5:30:00 legyen

• Fferi50 Topikgazda

  2022-12-15 14:46:30 #50115

  Új Válasz

  Ú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

  

  Fferi50

  Topikgazda

  válasz Melorin üzenetére #50114

  Szia!
  Megcsináltad ezeket a lépéseket:?
  "1.Select any cell that has the logo. Make sure you have selected the cell, not the logo/image.
  2.Copy the cell (use Control + C or right-click and select copy).
  3.Right-click on the cell where you want to get the linked picture (it can be any cell as we can adjust this later).
  4.Go to the Paste Special option and click on the small right-pointing arrow to get more options.
  5.Click on the Paste Linked Picture icon.
  "
  Mert csak ezzel együtt működik a kép megjelenítése.
  Üdv.

• Melorin addikt

  2022-12-15 13:11:03 #50114

  Új Válasz

  Ú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

  

  Melorin

  addikt

  válasz Fferi50 üzenetére #50113

  Az "F3" cellán állok, fent látszik, hogy a névkezelőben megadott nevet írtam be. De hol a kép a cellából?

• Fferi50 Topikgazda

  2022-12-15 12:54:29 #50113

  Új Válasz

  Ú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

  

  Fferi50

  Topikgazda

  válasz Melorin üzenetére #50112

  Szia!
  A Refers to: nem a képlet része. Az a hivatkozás angol neve.
  Írtam, hogy a képletben az Excelednek megfelelő függvényeket és formákat kell használnod.
  Magyar Excelben a MATCH => HOL.VAN, a vessző helyett pedig általában pontosvesszőt kell használni.
  Továbbá a képletet csak a névkezelő Hivatkozás részébe kell beírni. A cellákba a névkezelőben megadott nevet kell írni az egyenlőségjel után. Azt lehet lehúzni.
  Üdv.

• Melorin addikt

  2022-12-15 11:48:17 #50112

  Új Válasz

  Ú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

  

  Melorin

  addikt

  válasz Fferi50 üzenetére #50111

  Nem fogadja el a névkezelő ezt a képletet:
  

• Fferi50 Topikgazda

  2022-12-15 11:34:28 #50111

  Új Válasz

  Ú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

  

  Fferi50

  Topikgazda

  válasz Melorin üzenetére #50107

  Szia!
  " 300 bejegyzést kell létrehoznom a névkezelőben ehhez?!"
  Egyáltalán nem!
  A második verzió nekem jobban "tetszik".
  Itt a névkezelő képlete:
  Refers to: =INDEX($C$3:$C$22,MATCH($E$3,$B$3:$B$22,0))
  Ahol a $E$3 a nevet tartalmazó cella. Amennyiben a sor elől elhagyod a $ jelet, akkor a képletet lefelé húzva majd mindig az aktuális cella értékét fogja keresni.
  Refers to: =INDEX($C$3:$C$22,MATCH($E3,$B$3:$B$22,0))
  Az első cellába beírod a nevet: =ClubLogoLookup
  majd ezt lehúzod, ameddig neveid vannak.
  Természetesen a képletet és a függvények neveit a saját Exceled követelményeinek megfelelően használd.
  Üdv.

• Melorin addikt

  2022-12-15 11:33:04 #50110

  Új Válasz

  Ú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

  

  Melorin

  addikt

  válasz Delila_1 üzenetére #50109

  Mi az, hogy a végére?

• Delila_1 veterán

  2022-12-15 10:43:47 #50109

  Új Válasz

  Ú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

  

  Delila_1

  veterán

  válasz Melorin üzenetére #50108

  Az E oszlop neveit másold az A oszlop végére, a G oszlop ábráit pedig a B végére.

• Melorin addikt

  2022-12-15 10:32:07 #50108

  Új Válasz

  Ú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

  

  Melorin

  addikt

  válasz Melorin üzenetére #50107

  Mutatok egy példát a linkelt oldalról szedve és az én igényemmel megspékelve:
  

  A 'B' és 'C' oszlop az adatbázis. Ebből szeretném kinyerni a logót a 'G' oszlopban, az 'E' oszlop nevei alapján.

• Melorin addikt

  2022-12-15 10:14:50 #50107

  Új Válasz

  Ú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

  

  Melorin

  addikt

  válasz lappy üzenetére #50106

  Köszi, ez majdnem jó. Viszont nekem nem 1 cella kell amiben a kép az alapján változik, hogy egy bizonyos cellában mi az érték. Látom ezt úgy oldják meg ezekben a példákban, hogy a névkezelőben definiálnak egy cellát amit figyel, és az alapján fog az a bizonyos kép megváltozni. De nekem kb 300 sornyi adat van amiknek külön képe van. 300 bejegyzést kell létrehoznom a névkezelőben ehhez?!

• lappy őstag

  2022-12-15 09:15:36 #50106

  Új Válasz

  Ú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

  

  lappy

  őstag

  válasz Melorin üzenetére #50105

  ez
  vagy
  ez

• Melorin addikt

  2022-12-15 09:04:18 #50105

  Új Válasz

  Ú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

  

  Melorin

  addikt

  Sziasztok!
  Hogyan lehet megoldani azt, hogy fkeressel vagy hasonló megoldással egy képet hívjak meg egy cellába?
  Tehát ha beírom az A1-be azt, hogy 'Alma' akkor a B1-ben jelenjen meg egy alma képe. Természetesen a táblázat egy másik lapján lenne egy adatbázik képekkel. Vagy a képeket eleve úgy nevezem el, hogy alma.jpg és azt behívni valahogy.
  Nem tudom, segítsetek légyszi

• lappy őstag

  2022-12-15 08:40:52 #50104

  Új Válasz

  Ú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

  

  lappy

  őstag

  válasz spect80 üzenetére #50102

  egy kis példát tennél ide fel? mert a 10 és 20 óra utáni rész nem világos
  A kezdő dátumra és a végdátumra vonatkozik?

• eszgé100 őstag

  2022-12-15 07:52:39 #50103

  Új Válasz

  Ú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

  

  eszgé100

  őstag

  válasz Fferi50 üzenetére #50101

  Tegnap toroltem a szabalyt, ma ugyanugy megadtam, hogy 0 eseten feher font es mukodik. Uj sor hozzaadasakor a felteteles formazas terulete is novekedett. Lovesem sincs, hogy mi volt a problema

• spect80 őstag

  2022-12-14 18:40:28 #50102

  Új Válasz

  Ú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

  

  spect80

  őstag

  sziasztok,

  Van egy táblázatom, amiben van 6000 sor 2 oszloppal:
  - kezdődátum
  - végdátum

  - a dátum mezőben megadott adatok: éééé.hh.nn óó:pp:mm

  Az a feladat, hogy adja össze és írja ki az összes sor azon óraszámait amik reggel 10:00 előtt vagy este 20:00 után szerepelnek a listában.

  SZUMHATÖBB függvénnyel próbáltam megadni, de elakadok a kritériumnál, hogy milyen formában lehet beírni, hogy <10:00 vagy >20:00 óra. Egyáltalán ezt meg lehet így adni?

• Fferi50 Topikgazda

  2022-12-14 15:49:19 #50101

  Új Válasz

  Ú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

  

  Fferi50

  Topikgazda

  válasz eszgé100 üzenetére #50100

  Szia!
  Ha megnézed a feltételes formázás szabályainak érvényesülési területét a szabályok kezelése menüpontban, akkor benne van az új sor?
  Üdv.

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