Látom, régi verzióval (xls kiterjesztés) dolgozol.
Nálam a két füzet régi.xls, ill. új.xls névre hallgat, mindegyikben az első munkalapon vannak az adatok, és mindkettőben az első sor a fejléc.

A makró:
Sub Frissites()
    Dim sorRegi As Long, sorUj As Long, usor As Long, ide
    
    usor = Workbooks("új.xls").Sheets(1).Range("A" & Rows.Count).End(xlUp).Row
    For sorUj = 2 To usor
        On Error Resume Next
        ide = Application.Match(Workbooks("új.xls").Sheets(1).Cells(sorUj, 1), Workbooks("régi.xls").Sheets(1).Columns(1), 0)
        If VarType(ide) = vbError Then _
            ide = Application.WorksheetFunction.CountA(Workbooks("régi.xls").Sheets(1).Columns(1)) + 1
            
        Workbooks("új.xls").Sheets(1).Rows(sorUj).Copy Workbooks("régi.xls").Sheets(1).Range("A" & ide)
    Next
End Sub

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

Köszönöm mindenkinek, megnézem így.
Ami pedig a régi kiterjesztést illeti, XLSX-et használok, csak megszokás.

But who is watching the guardians?

Ha a makróst választod, akkor makróbarátként kell mentened a fájlt. Mindegy, hogy melyikbe teszed, de mindkettő legyen megnyitva indításkor.

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

Köszönöm az információt

But who is watching the guardians?

Újabb gondolathoz kérnék szakértői segítséget.
A két fájl még mindig ugyan az. Csak ezúttal a gondolat más.
Van az alap xlsx, benne sorok és oszkopok, kitöltve. És van egy másik is, ami eltérést mutat. Az, ami eltérést mutat, mindig kevesebb adatot tartalmaz, tehát a (nevezzük így) fő fájlból vannak benne elemek, módosítva.

A cél az lenne, hogy rámásolom a mellék fájlt a fő fájlra. Mindazon sorok, melyek megegyeznek a két fájlban, a hátterük zöldre vált. Ami viszont nem egyezik meg, az nem csinál semmit, nem írja felül és nem is jelenik meg újként.

Erre így van megoldás?

Köszönöm előre is, mint ahogyan a türelmeteket is!

But who is watching the guardians?

feltételes formázással

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

Szia!
Kérdés kérdést szül.
"Mindazon sorok, melyek megegyeznek a két fájlban, a hátterük zöldre vált."
Itt gondolom az azonosító egyezőségére gondolsz és a fő fájlban felülíródik az adat. Ezt kellene a fő fájlban zölddel jelölni.
Ha nem talál az aktualizáláshoz egyező azonosítót, akkor marad a fő fájl adata.
Ebben az esetben én egy munkafüzetbe tenném a két munkalapot. A fő munkalapon egy segédoszlopban FKERES függvénnyel megkeresném a mellék fájlban az azonosítót.
Ezután feltételes formázással színezném azokat a sorokat, ahol nem hiba az eredmény.
A következő aktualizálás előtt (mert gondolom lesz ilyen is), a segédoszlop értékét - a hibák kivételéve - átmásolnám a régi oszlopba. Ezután az új értékek kerülnének az aktualizálásról másolt munkalapra.
Üdv.

Nem, ebben az esetben nem az azonosítók, hanem a komplett sor.
Ez egy másik, részben független projekt a reggeli kérdéstől.

Viszont gondolkodom azon, amit írtál. Sajnos nem nagyon vagyok otthon az excel világában, ezért fel kell dolgozni fejben is ezeket

[ Szerkesztve ]

But who is watching the guardians?

A régi alá másolod az újat. Mindegyikben az A oszlopban vannak az azonosítók.
Kijelölöd az A oszlop sorait, majd a feltételes formázásnál a Csak az egyedi vagy ismétlődések formázása opciót választod, a Formázás minden-nél pedig az ismétlődőt jelölöd be.

Szerk.: míg írtam, megjött a válaszod, hogy nem lehet bennük egyező azonosító.

[ Szerkesztve ]

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

Felveszel egy segédoszlopot, ahol összefűzöd a előtte lévő oszlopok adatait.
=A2 & " " & B2 & " " & C2
Nálam 3 oszlop van, a negyedikbe kerül a képlet.
Kijelölöd az első három oszlopot, majd a felt. formázáshoz egyedi képletet viszel be.
=DARABTELI($D$2:$D$35;$D2)>1
Persze nem 35-ig lesznek a sorok.

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

Helló!

Hogyan lehetne azt megoldani legkönnyebben, hogy macroval, keresni akarok egy oszlopban egy szöveget, és ha megegyezik, akkor ki kellene nyerni a találatot tartalmazó sor számát, hogy aztán azt feltudjam használni változóként?

Tehát: Kellene annak a sornak a száma, amely tartalmazza a keresett szöveget.

Köszönöm!

Sub Talalat()
    Dim talal
    On Error Resume Next
    talal = Application.Match(Range("G1"), Columns(1), 0)
    If VarType(talal) = vbError Then
        MsgBox "Nem található a G1 cella értéke az A oszlopban", vbInformation, "Hiányzó szöveg"
    Else
        MsgBox "G1 cella tartalmának sorszáma az A oszlopban: " & talal, vbInformation, "Sorszám"
    End If
    On Error GoTo 0
End Sub

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

ilyenre gondolsz?

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

Köszönöm, megnézem

But who is watching the guardians?

Ebből hol tudom felhasználni máshol majd a sor számát? Lehet vak vagyok, de én most ezt nem látom.

A talal változóban van. Ha nincs találat, akkor hibára fut.
Az Igaz ágba betehetsz egy exit sub-ot, hogy ne akadjon ki a makró. Az Else ágban az üzenet helyett felhasználhatod a változó értékét.

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

Ok köszönöm. Lefuttattam, ahogy fentebb írtad, viszont az üzenetben nem szerepel a sorszáma, a kettőspont után nincs semmi, pedig van találat. Olyan mintha a talal változó üres lenne.

[ Szerkesztve ]

Ok, közben valahogy megoldottam, viszont a következő probléma:

Van egy változóm: sorszam = mondjuk 1

Szeretném ha a "masikvaltozo" értéke a "sorszam és 1 oszlop" értéke lenne
Tehát a lenti példában az A1-es cella (mert ugye a "sorszam" értéke 1, tehát első sor) tartalmát szeretném hozzárendelni a "masikvaltozo"-hoz.

Dim masikvaltozo

masikvaltozo= Cells(sorszam, 1).Value

Mit rontok el?

[ Szerkesztve ]

Betettem két soremelést az Else ágba, hogy feltünőbb legyen a sorszám.

Sub Talalat()
    Dim talal
    On Error Resume Next
    Columns(2).ClearContents 'A későbbi beírás miatt törlöm a B oszlop adatait
    talal = Application.Match(Range("G1"), Columns(1), 0)
    If VarType(talal) = vbError Then
        MsgBox "Nem található a G1 cella értéke az A oszlopban", vbInformation, "Hiányzó szöveg"
        On Error GoTo 0
    Else
        MsgBox "G1 cella tartalmának sorszáma az A oszlopban: " & vbLf & vbLf & talal, vbInformation, "Sorszám"
        
        'Itt felhasználjuk a talal változó értékét
      Range("B" & talal) = "Ebben a sorban van a G1 cella értéke"
    End If
End Sub

[ Szerkesztve ]

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

Sziasztok!

Van egy elég összetett excel táblám, sok makróval. A minap elkezdte azt játszani, hogy a makró dátumvezérlője "beakadt", és nem fut le - így kb. az egész használhatatlan. A hiba Office 2019 és 365 alatt is fennáll. Van ötletetek, hogyan lehetne korrigálni?

Köszönöm szépen!

"Amúgy a lekvár leszedésre jobb módszer is van: le kell nyalni... elképzelem, ahogy egy nagy PH!-s procitesztben fLeSsék nyalogatják a procikat" by Male (Hűtőpaszta vs. lekvár 2. rész)

Sziasztok!

Ha belról szeretnék kivágni egy szövegrészletből úgy hogy egy adott karakterig pl emailből a @ ig akkor arra van alap képlet?
Köszi

Csak megfontoltan :D "Öregember nem gyorsvonat!" John McClane

=LEFT(B5,FIND("_",B5)-1)

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

Szia,

Először is köszi szépen. Kérdés nekem magyar excelem van és gondolom ez a megfelelő képlet de vlaamiért hibát dob. Van tipp miért? =SZÖVEG.TALÁL(C2;"@";-1)

Csak megfontoltan :D "Öregember nem gyorsvonat!" John McClane

=BAL(B2;SZÖVEG.KERES("@";B2)-1)
ez a megfelelő
LEFT= BAL
FIND=Szöveg.keres

[ Szerkesztve ]

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

köszönöm

Csak megfontoltan :D "Öregember nem gyorsvonat!" John McClane

Szia,

Nézd meg, hogy a VBA szerkesztóben a Tools -> References alatt be van-e pipálva a "Visual Basic for Applications", illetve hogy ne legyen pipa olyan library mellett amelynél kiírja, hogy missing.

A DateValue(Now) is elhasal nálad?

üdv

A tanácsaimat ingyen adom. Ha nem tetszik, akkor kérlek ne kritizáld! / https://github.com/viszi/codes/tree/master/Excel

Sziasztok!

Van valakienk ötlete, hogy a NAV adatbázisból, hogyan tudom lekérdezni az adóalanyok listáját? 2 megoldás is érdekelne:
1: teljes adózói adatbázis letöltése excelbe
2: kiválasztott adószám alapján az adott adózó adatainak letöltése.

HTML-kóddal még csak-csak megy, de VBA-ban most ötletem sincs.

Köszi
P.

Sziasztok, karakter méret csökkentésre/növelésre van lehetőség függvénnyel.
A kisbetű/nagybetű függvény nem jó, mert az csak betűre működik.
Ilyesmit íratnék ki: 40(v100)
Ebből a (v100) kisebb méretű lenne mint a 40

Köszönöm

Kijelölöd a módosítandó méretű szövegrészt a szerkesztőlécen, és módosítod.

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

Milyen NAV adatbázisra gondolsz?

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

Ez megvan köszi, de nekem a fenti szöveg/karakterlánc függvényből épül fel és abban az esetben ha a függvény megfelelő részét jelölöm ki inaktiválódik ugye a betű stílus állítási ablak.
Ez a függvényem ahova jó lenne beszúrni valami függvényt:
=HA(Alkatrészlista!Q7="";Alkatrészlista!Q7;Alkatrészlista!Q7&" (v"&Alkatrészlista!F7&")")

Persze ha van más lehetőség a függvényen kívül nekem az is jó.
Vagy én értelek félre?
Köszi

Saját programhoz kellene, nem készül belőle adatszolgáltatás.

1. Maga az adatbázis, az már egy létező adatbázis (pl. MySQL, Access, Paradox stb stb)?
2. Lokális (saját gépeden van) vagy hálózaton (neten egy szerveren csücsül stb stb)?
3. Az adatbázis felépítése?

Szóval ezen, alapvető infók hiányában nagyon nehéz segíteni. Pl. korábban írtad:
"1: teljes adózói adatbázis letöltése excelbe"

Adatbázist nem lehet "csak úgy" letölteni Excel-be, max. átkonvertálni (makró segítségével, de ehhez nélkülözhetetlen az adatbázis felépítésének ismerete) avagy "legegyszerűbben" Power Query segítségével beimportálni az adatokat, majd ezt követően SQL lekérdezéseket (is) már el lehet követni.

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

Képletet tartalmazó cellában nem tudod a karakterek egy részét módosítani.
Lehet viszont segédcellában, ahova értékként átmásolod a képletet tartalmazó cella adatát. Ezt teszi a lenti makró. Az utolsó előtti sor a zárójel előtti részt 15-ös karakterűre állítja a segédcellában, az utolsó a többi részt 8-asra. Nem kívánt törlendő, a két méret tetszés szerint módosítható.
Ciklusba is beteheted, hogy egy teljes oszlop adatait átmásolja, és formázza.
Sub Nagy_Kicsi()
    Dim szoveg As String, kezd As Integer
    
    Range("A1").Copy
    Range("B1").PasteSpecial xlPasteValues
    szoveg = Range("B1").Value
    kezd = InStr(szoveg, "(")
    Range("B1").Characters(Start:=1, Length:=kezd - 1).Font.Size = 15
    Range("B1").Characters(Start:=kezd, Length:=20).Font.Size = 8
End Sub

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

Teljes oszlophoz
Sub Nagy_Kicsi()
    Dim szoveg As String, sor As Integer
    
    For sor = 1 To 8
        Range("A" & sor).Copy
        Range("B" & sor).PasteSpecial xlPasteValues
        szoveg = Range("B" & sor).Value
        Range("B" & sor).Characters(Start:=1, Length:=InStr(szoveg, "(") - 1).Font.Size = 15
        Range("B" & sor).Characters(Start:=InStr(szoveg, "("), Length:=20).Font.Size = 8
    Next
End Sub

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

Szia!

Ne bonyolítsd. Semmi SQL meg egyéb nem kell hozzá első körben, mint írtam, excelbe (lehet power query is) szeretném beolvasni. Egyelőre még linket sem találtam, ahol el lehet érni.
A VBA-n belüli lekérdezést és szűrést stb...megoldom, legyen az bármilyen adatbázisban.

"Egyelőre még linket sem találtam, ahol el lehet érni."
Mármint a Power Query-t?
Ez 2016 vagy újabb Office esetén beépítve megtalálható.
2010/2013 esetén telepíteni kell: [link]
Adatok fül/Adatok beolvasásánál tudsz adatbázisból beolvasni

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

Köszönöm

Nem a Power Query-hez. A NAV adatbázishoz.
Valószínűleg API-val lehet olvansi...

Helló!

Egyszerűen nem tudok rájönni, hogy miért működik első ciklusban az egész, majd amikor az első ismétlés elkezdődik, hibára fut:

  holkeressen = "A1:A1000"
    
  For megintismetel = 1 To 3
  talalatsorszama = Application.Match(munkaszam, Range(holkeressen), 0)
    holkeressen = "A" & talalatsorszama + 1 & ":A1000"
If VarType(talalatsorszama) = vbError Then
    MsgBox " nincs talalat", vbInformation, "Hiba"
 Else
  MsgBox "cella tartalmának sorszáma az A oszlopban: " & talalatsorszama, vbInformation, "Eredmény üzenet"
  End If
On Error GoTo
Egyéb kód itt
Next megintismetel

A cél az, hogy addig ismételje, amíg van találat, de próbaképp csak 3x akarom ismételni, majd később átírom. De így se fut le. Elvileg át kellene írnia mindig a keresési tartomány elejét az "előző találat+1"-re, hogy ne számolja bele az előbbi találat.

Hibaüzenet: Runtime error '13'
Type Mismatch

Amikor debug módban rámutatok egérrel a talalatsorszama-ra akkor: Error 2042 az értéke

Mi lehet a probléma?

[ Szerkesztve ]

Szia!
A hibaüzenet - Type Mismatch - azt jelenti, hogy nem azonos típusú adatokkal szeretnél műveletet végezni. Ahogyan írtad is, a talalatsorszama változód értéke HIBA, hibához pedig nem lehet hozzáadni számot.
További megjegyzés:
A Match által visszaadott sorszám mindig a vizsgált tartományra vonatkozik.
Pl. Ha az A1:A100 tartományra ad vissza 2-t, akkor az A2 celllában van a találat.
Ha az A2:A100 tartományt vizsgálod és ott 2 az eredmény, akkor az A3 cellában van a találat,í mert az a tartomány 2. cellája!
A keresés ismétlésénél így a képleted szerint az A (2+1=3) cellától fog indulni a keresés, aminek az eredménye 1 lesz ---> vagyis a találatod ugyanabban az A3 cellában lesz.
Mivel most a találatsorszama eredménye 1, ezért a képleted alapján a következő keresési tartomány az A (1+1=2) cellától indul. Ez így szép kis végtelen ciklussá alakul át.
Vagyis meg kell jegyezned, hogy az előző találatnál honnan indult a keresési tartomány és abból az értékből kiindulva kell a következő keresési tartomány kezdő értékét beállítani.
Még egy megjegyzés:
Szerintem érdemes megnézned a Range Find metódusát is. Ez megkeresi a feltételnek megfelelő cellát és annak a sorát megkaphatod a Row tulajdonsággal. Jó kis példa is van a folytatólagos keresésre a HELP-ben. [link]
Üdv.

Köszönöm, eszközölnöm kellett kisebb módosítást, de működik a Range Find metódusával.

Másik:
Szeretnék beilleszteni egy Word dokumentumban lévő táblázat celláiba értékeket. A cellák üresek.
Egyszerűen nem találok rá egyszerű megoldást a google-ben.
Hogyan tudom meghatározni, hogy hova illesszen be? Van valami azonosító?

Eddigi kód:

Sub openword()
    Set wordalkalmazas = CreateObject("word.Application")
  wordalkalmazas.documents.Open "elérésiút\probasablon.doc"
    wordalkalmazas.Visible = True
  
End Sub

[ Szerkesztve ]

téves

[ Szerkesztve ]

Szia,

Kipróbáltam, valamiért nem működött, valószínűleg én voltam a béna.
Feltöltök egy mintafájlt, úgy valószínűleg egyszerűbb lesz, illetve kicsit módosítanék is az eredmény kiszámításán:

2 féle számolási módot képzeltem el, viszont mindkettő más-más megközelítést, számolást követel meg, ezért csak az egyiket írom le:

Erre a fülre igazából nincs szükség ebben a számolási formában, így csak információként van jelen:
(
Szóval úgy képzeltem el, hogy adott az excel "Raktárkészlet" fülén a "C" oszloptól kezdődően, hogy milyen készletmozgások voltak az adott napon.
1 oszlop 1 nap.
Ebben benne van az eladás és a beérkezett termékmennyiség is.
)

Adott a "Beszerzések" fül, ahol látni, hogy milyen dátummal melyik azonosítójú termékből mennyi érkezett és milyen áron.

Adott még az "Eladások" fül, ahol látni, hogy 1 termékből melyik napon mennyi ment el.
Itt a "KISZÁMLÁZÁS DÁTUMA" oszlopát nézze, hogy mikor lett kiszámlázva az adott termék, és vesse össze, hogy legalább aznap vagy azt megelőzően milyen áron érkezett a rendelésben lévő adott termék (magyarul mennyiért vettük) a "Beszerzések" fül alapján.
- Szóval itt többszörös feltételes keresésre lenne szükség, amivel meggyűlt a bajom. -
Ha ez is megvan, vonja ki belőle a beszerzési árat, így megkapjuk, hogy mennyi árrés maradt azon a terméken.

Az "Eladások" fül végén az "Árrés" oszlopba kellene kerüljön a számolt adat, akkor egyből látszódna az eredmény.

A mintafájl: [link]

Remélem, így jobb a leírásom.

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

Üdv,
Botond

Szia!
Ez egy annál is összetettebb probléma, mint amire gondolsz. Számvitelileg készletnyilvántartási és értékelési körbe tartozik. Nem oldható meg ilyen egyszerűen. Javaslom nézd meg a számviteli törvény készlet értékeléssel és számlázással kapcsolatos előírásait.
Szerintem sokkal egyszerűbb venni egy számviteli programot, amelyikben benne vannak a megfelelő modulok, csak fel kell paraméterezni azokat.
Csak egy a felvethető kérdések közül a leírtakkal kapcsolatban:
"- a beszerzési ár legyen a számlázásnál korábbi, ahhoz legközelebbi időpontban történt beszerzés ára." kicsit egyszerűsítve ezt írod.
Mi legyen akkor, ha az abban az időpontban beszerzett termék mennyiség már elfogyott? Ezt pl. honnan fogja tudni a számolás?
Tudni kell hozzá a számviteli értékelési politikát -- FIFO, LIFO vagy átlag -- és annak megfelelően kell a készletet is vizsgálni hozzá.
Egy szó mint száz, a leírt követelményeid nem elegendőek a feladat --> az értékesítési árrés <-- megfelelő, számvitelben is felhasználható kiszámításához. Ehhez egy sokkal konkrétabb, a számviteli elszámolásoknak megfelelő specifikáció szükséges.
Üdv.

[ Szerkesztve ]

Sziasztok!
Hogy tudom beállítani Excel 365-ben, hogy ha egy e-mail címet tartalmazó cellánál entert nyomok, akkor az ne alakuljon automatikusan linkké! Sokat dolgozom ilyen cellákkal, és nagyban nehezíti a munkámat, hogy visszatérve az ilyen cellákhoz rákattintva, rögtön a levelező program nyílik meg!
Köszönöm!

beállítások- nyelvi ellenőrzés- automatikus javítás - automatikus formázás - internetes...
pipát vedd ki

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

Hálás köszönet! Ez olyan jól el volt rejtve, hogy biztosan nem találtam volna meg magamtól!

Sziasztok!

Nem nagyon használom az excel-t, a diagram részét meg főleg nem.
Melyik diagrammal tudnám szemléltetni az alábbit.
Adott egy dátum, ehhez tartozik 6 adat (lökés számok, 1 lökés, 2 lökés stb.).
És van ebből a dátumból sok.
Azt szeretném valahogy látni egyben hogy adott napon mennyit löktem az első fajtából és az előző alkalommal mennyit löktem.
Szerintem vonal diagram kell nekem csak nem tudom hogy melyik és hogy nézzen ki a táblázat
Tudnátok segíteni?

"If in doubt, flat out!" Colin McRae