Szia!
Azért írtam, hogy a NAV-ot kell megkérdezni. Szerintem a számlázó programok a NAV által hitelesítettek és a NAV által megadott API-t használják.
Üdv.

Sziasztok!

"A" oszlop értékei IDŐÉRTÉK függvénnyel korrekt, használható adatot adnak a "B" oszlopba, de szeretném függvény helyett makróval az egész (vagy ameddig adat van benne) "A" oszlop tartalmát "B" oszlopba másolni IDŐÉRTÉK formátumban.

Segítségeteket előre is köszönöm!

Szia!
Talán a legegyszerűbb:
usor=Cells(Rows.Count,1).End(xlup).Row
With Range("B1:B" & usor)
.Formula="=Timevalue(A1)"
.Value=.Value
' .NumberFormat="hh:mm:ss" ' ha formázottan szeretnéd látni akkor vedd ki a sor elejéről az aposztrofot
End With
Üdv.

Nagyon köszönöm!

Hi

Az alábbi képen látható táblázatban minden héten elérnek valamennyi pontot a személyek.

Szeretném az adott sorban a három legkisebb értéket kiíratni és mellé a neveket.
"MIN" megkeresi a legkisebb számot de nem tudom ki vagy kik érték el azt.
"SMALL" függvénnyel keresve a következő legkisebb értéket szintén 13-at kapok mert többször is előfordul.
Erre lenne valami ötlet?

Excel-ben hogy kell elérni, hogy egy ilyen számsor folytatva legyen?
001/2022
002/2022
003/2022
...
A baj az, hogy ha beírok három-négy sornyi ilyen szöveget és lehúzással folytatni akarnám a számsort, akkor egyszerűen elölről kezdi a 001/ rész és a beírt három sor számait ismételgetni.

"Igen nagy hiábavalóság – mondja a Prédikátor –, minden hiábavalóság!" (Préd 12,8)

Szia!
Ha pl. az első sortól indítod, akkor használhatod a következő képletet:
=JOBB("000" & SOR();3) & "/2022"
Ezt lehúzod, utána pedig másolás, irányított beillesztés - értéket.
Ha nem az első sor, akkor a sor függvény értékét módosítod szükség szerint.
Üdv.

Szia!
Egy segédsorban módosítanám a rangsorolandó értékeket az oszlop számának egy egészen kis részével, pl. b3 képlete =b2+oszlop()/100000. Ezt húzom végig soron. Így minden szám egyedivé válik. Erre a számsorra alkalmaznám a Small vagy a Rank.EQ függvényt.
Üdv.

Szia
Ez megvan, köszi.
Arra van javaslatod milyen függvénnyel rakjam a számok mellé a neveket?

Nagy nagy köszi!

"Igen nagy hiábavalóság – mondja a Prédikátor –, minden hiábavalóság!" (Préd 12,8)

Szia!
Ha van XKERES függvényed, akkor az, ha nincs akkor INDEX -MATCH páros.
Üdv.

Üdv!

Textbox-ba írt dátum validálásnál van mód arra, hogy ne yyyy/mm/dd formátumba kelljen beírni, aztán átalakítani yyyy.mm.dd formátumba, hanem a dátum beírásakor egyből megkövetelni a yyyy.mm.dd formátumot?

XBOX ONE GT: istvankereszt79

Nézz el ide.

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öszi!

A kérdés az, hogy ha egy olyan környezetbe kerül a projektem, amiben ez az add-on nincs feltelepítve, akkor működik-e?

Rá kell jönnöm, hogy tudom integrálni a UserForm-ba?!

XBOX ONE GT: istvankereszt79

Esetleg ez?
[link]

HONOR Magic5 Pro - Huawei P30 Pro 8/128 GB - Xiaomi MI Note 10 Pro - Huawei Mate 10 Pro

Szia!
Esetleg 3 Combobox (Év, hónap, nap), ahol meghatározhatod a kiválasztási lehetőségeket (pl. a középsőben a hónapok 1-12 vagy jan-dec, a napoknál pedig a hónaptól függően 28-29-30-31).
Üdv.

Köszi mindenkinek, de végül is átgondolva, nincs szükség rá, hogy dátumként kezeljem a textbox értékét. (egyelőre) Sima textbox-ba írt yyyy.mm.dd formátumos szöveg típust kell kimásolnom majd máshova beilleszteni gombnyomásra. Felesleges lépés (most) beíratni majd a felhasználóval / jelekkel, meg több combobox-al megoldani. Max rakok alá egy labelt, hogy ÉÉÉÉ.HH.NN a helyes formátum és ez elég lesz. Lehet, hogy a kimutátoskhoz majd jobb lesz, ha dátumként kezelem, mert úgy könnyebb lesz havi kimutatást csinálni, de most felesleges egyelőre. Azért köszi mindenkinek!

XBOX ONE GT: istvankereszt79

Szia!
Lelked rajta. De a textboxba beírt érték mindig szöveg lesz és ellenőrizni kell, hogy megfelelő-e dátumnak - formátumtól függetlenül. Ne ringasd magad álmokba, a felhasználók sajnos gyakran esnek abba a hibába, hogy saját szakállukra írnak be adatokat - mindegy, milyen utasítást látnak alatta vagy akár a felhasználói kézikönyvben. Ha hibátlan adatokkal szeretnél dolgozni, akkor bizony folyamatosan ellenőrizned kell az adatbevitelt. Erre több lehetőség is van, de szerintem valamelyiket mindenképp választanod kell. Egyébként megfelelő formátumú szövegből bármikor tudsz dátumot "varázsolni", a megfelelő formátum a fontos.
Üdv.

Szia

Nincs XKERES függvényem.
INDEX -MATCH párost, hogy rakjam össze?

üdv

INDEX(tartomány,hol.van(érték,tartomány,0))

[ Szerkesztve ]

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

Köszi, azt hiszem megvan.

Sziasztok,

Egy kis segítséget szeretnék kérni. 2016-os verziót használok.
Szeretnék két oszlopot egymáshoz társítani egy 3ik oszlop alapján. Szóval van egy közös oszlop és az alapján kénr egymáshoz rendelni a két másik oszlopot.
TAlán képekkle jobban el tudom magyarázni:
Egyik fül:

Másik fül:

Ugye a közös pont a MSN oszlop és azt szeretném, hogy az ugyanazon MSN számhoz tartozó két érték egymás mellé kerüljön. Ami fontos, hogy habár itt most sorrendben vannak, ez nem mindig van így, szóval eltérhetnek a sorrendiségek.

Eddig ezt minitabbal oldottam meg, de az most valamiért meghalt és meg vagyok lőve.

Előre is köszi a segítséget!

"Megtanulta (millió lélekváltó árán): akinek minden a vállán nyugszik, nem nyugszik senki vállán."

fkeres függvény

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

Szia!
Ha az MSN oszlop van hátrább, akkor INDEX - HOL.VAN páros.
Fkereshez rendezni kell az oszlopokat.
Üdv.

igen tudom hogy rendezni kell, de feltételezem a kérdező ezt tudja

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

sziasztok!

2016os excelt használok.
a gondom a következő lenne. van valami ilyesmi táblázat, mint ez:

Most a gond az lenne, hogy nekem a B1et kéne összehasonlítani D1-el és ahol fél kövér akkor azt mutassa egy másik cellában (pl itt akkor az F1-ben). Ha nincs félkövér akkor azt amit ott mutat, mert akkor az ugyanaz a két érték. Valamint C1-et is össze kéne hasonlítani ugyanígy E1-el.
Van erre valami megoldás, ötlet?
Bármilyen megoldásra vevő lennék

Szia!
Akkor pontosítsunk: Mitől lesz félkövér egy cellában az érték?
A hasonlításnál a két cella tartalmát kell összehasonlítani?
Ha mindkét cellában ugyanaz a tartalom, de az egyik félkövér, akkor egyezőek vagy nem?
Ha nem egyezik a két érték, de az egyik félkövér, akkor mi a teendő?
Ha figyelni kell a félkövér-séget is, akkor csak makró jöhet szóba, de fontos lenne tudni a pontos szabályt.
Üdv.

szia.

A félkövérítést azt a vezetőség dönti el, tehát az a táblázattól független.
(Amúgy, mivel nem találok erre így megoldást, ha más formázással egyszerűbb vagy megoldható, arra is nyitott vagyok. Nem tudom én, színnel kitöltés, bármi)
Igen, a két cella tartalmát kellene összehasonlítani. Ha ugyanaz akkor csak jelenjen meg az adott sor következő cellájában (ahogy írtam, mondjuk F1ben). Ha ugyanaz a két érték, akkor egyik sem félkövér.
Ha valami félkövér, akkor az nem ugyanaz, mint az amivel összehasonlítjuk, és a félkövérnek kell "nyernie" az összeshasonlításban.

[ Szerkesztve ]

https://www.exceldemy.com/formula-to-find-bold-text-in-excel/
Itt van egy mód arra hogy lehet megállapítani hogy a cella félkövér vagy sem
Ha es megvan egy segèdoszlopban akkor már csak össze kell hasonlítani ha függvényekkel

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

Biztosan API-n keresztül működik, valami NAV leírásban láttam korábban.

Ha egy cellának nevet adok, akkor hogy lehet a korábban létrehozott képletekben befrissíteni?
Tehát A2 cella új neve ASD.
Korábban létrohozott képletben még mindig A2 a neve, nem frissül ASD-re.

"never send to know for whom the bells tolls; it tolls for thee"

Sziasztok!

Szerintem az Én elképzelésem túl bonyolult és talán van egyszerűbb - akár makrós - megoldás arra, hogy az "A" oszlopban szereplő értékeket kilistázza pl. a "C" oszlopba.

Segítségeteket előre is köszönöm.

képlet - név megadása - hivatkozás névvel nevet kiválasztod és OK gomb

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

ismétlődések eltávolítása

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

Remek! Köszi!

"never send to know for whom the bells tolls; it tolls for thee"

Sziasztok!

Valamiért az eddig betűvel megnevezett oszlopokat már számmal jelzi. Mit állíthattam el, és hogy tudnám visszacsinálni? Köszönöm előre is!

KovacsK85 / Kovács Krisztián

fájl - beállítások - képletek - képleteken végzett munka - S1O1 hivatkozás pipa ki

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

Köszönöm!

+1:
Adott egy zip fájlt kitömörítő makró:
Sub Unzip()
Dim FSO As Object
Dim oApp As Object
Dim Fname As Variant
Dim FileNameFolder As Variant
Dim DefPath As String

Fname = Application.GetOpenFilename(Filefilter:="Zip Files (*.zip), *.zip", _
MultiSelect:=False)
If Fname = False Then
'Do nothing
Else
'Destination folder
DefPath = "D:\Data\" '<<< Change path
If Right(DefPath, 1) <> "\" Then
DefPath = DefPath & "\"
End If

FileNameFolder = DefPath

' 'Delete all the files in the folder DefPath first if you want
' On Error Resume Next
' Kill DefPath & "*.*"
' On Error GoTo 0

'Extract the files into the Destination folder
Set oApp = CreateObject("Shell.Application")
oApp.Namespace(FileNameFolder).CopyHere oApp.Namespace(Fname).items

MsgBox "You find the files here: " & FileNameFolder

On Error Resume Next
Set FSO = CreateObject("scripting.filesystemobject")
FSO.deletefolder Environ("Temp") & "\Temporary Directory*", True
End If
End Sub

Szeretném a "GetOpenFilename" opciójaként megadni, hogy pl. a fájl tallózása során a "munka" elnevézű fájlokra is szűrjön, de eddig csak a fájl típus szűrést találtam.

Egy másik formációval ez sikerült, ott meg a kitömörítéssel nem jutok dülőre:
Sub OpenFileFromDefaultPath()
Dim fileDialogBox As Office.FileDialog
Dim fileName As String

Set fileDialogBox = Application.FileDialog(msoFileDialogFilePicker)

With fileDialogBox
.InitialFileName = "D:\Data\"
.InitialFileName = "*munka*"

If .Show = True Then
' e nélkül is működik
fileName = .SelectedItems(1)
End If
End With
End Sub

[ Szerkesztve ]

Gyors megoldást keresek az alábbira:

Költségvetési sorok tételeinek HUF-ban megadott összegei, szorzatai stb-t tehát az összes számot kellene a táblázaton belül egy "kapcsoló" segítségével adott cellába beírt EUR/HUF árfolyamnak megfelelően EUR-ba váltania. A mai árfolyam ingadozások mellett nem tudok több tízezer hivatkozást bemásolgatni minden képlet mögé. Köszönöm, aki segít!

ezzel lehet osztani az összes számot ami az adott tartományban van
Az E3 itt a váltószám

Sub Divide_a_range_of_cells_by_same_number()
'declare variables
Dim ws As Worksheet
Dim rng As Range
Dim myVal As Range
Set ws = Worksheets("Munka1")
Set rng = ws.Range("B2:B6")
For Each myVal In rng
myVal = myVal.Value / ws.Range("E3") ' ide lehet tenni * is akkor visszavált
Next myVal

End Sub

[ Szerkesztve ]

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

Uhh, ez nekem teljesen nem magyar. A világos szürkével írtakat ki kell törölni? Az E3 az a cella ahol pl. 401,1 van írva? Worksheets-hez a lapfül nevét kellene írni, azon belül a Range az a tartomány lenne gondolom. Hogyan lehet a kész eredményt megtalálni? Külön kell menteni?

A szürke szöveg maradhat, de törölhető is
E3 ahol az osztò van ezt akárhová teheted a munkalapon
A worksheet neve az a munkalap amin átváltász
A tartományt a b2:b6 nal tudod átírni
A makro átírja a munkalapon belül megadott tartomany összes numerikus adatait ha kell az eredeti akkor másolatot kell készíteni

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

ez működött, köszi, isten vagy

Köszönöm!

Olyat lehet hogy ha angol az excelem, a számokat a magyarhoz hasonlóan kezelje? Gondolok itt az ezres csoportra, hogy nem vesszővel hanem szóközzel legyen elválasztva és a tizedes érték vesszővel ne ponttal.

[ Szerkesztve ]

KovacsK85 / Kovács Krisztián

Szia!
Szerintem egy próbát megér (csak magyarban tudom mutatni):
File - Beállítások - Speciális - Rendszerbeállítások szerinti elválasztók használata elől pipa ki, utána megadhatod a tizedesjelet és az ezres elválasztót.

Üdv.

nekem az angol verzió így csinálja

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

Üdv! Ismét elakadtam a projektemben.

Adott egy excel fájl aminek a neve változhat, de általában nem változik. Az egyik worksheet egy Temlplate. (Nyilvantartolap_TEMPLATE)

VBA-ban csak ezt az egy worksheet-t szeretném átmásolni egy másik, újonann létrehozott excelbe. Gombnyomásra az új excel-t sikerül létrehoznom abban a mappában ahol szeretném, azon a néven, ahogy szeretném, de nem tudom belemásolni a Template worksheet-t. Tehát megnyitva marad az az excel is amin működik a VBA és mellé nyílik az új excel fájl is.

Sokmindennel próbálkoztam, de nem tudom mit nézek be, mindig hibára fut.

A kódom:

Mi kell a ??? helyére?

Köszi!

[ Szerkesztve ]

XBOX ONE GT: istvankereszt79

Szia!
Nagyon szépen köszönöm!

KovacsK85 / Kovács Krisztián

Szia!
Szerintem ennyi elég a másolás - új munkafüzet létrehozásához:
Sheets("Nyilvantartolap_TEMPLATE").Copy
Ez egy új munkafüzetbe teszi át ezt az egy munkalapot. Utána ez a munkafüzet lesz aktív, tehát el kell döntened mi legyen a neve, hova mented stb.
Ebben az új munkafüzetben nem lesznek benne a makrók - kivéve, ha a másolt munkalapnak van kódlapja, mert azt viszont átviszi.
Az új munkafüzet bezárása után az eredeti munkafüzet marad aktív.
Ha azt szeretnéd, hogy csak az új munkafüzet maradjon nyitva, akkor ezt a sort kell még betenni a fenti sor után:
Thisworkbook.Close False
Ebben az esetben csak az új munkafüzet marad nyitva.
Üdv.

[ Szerkesztve ]