- sziku69: Fűzzük össze a szavakat :)
- Luck Dragon: Asszociációs játék. :)
- D1Rect: Nagy "hülyétkapokazapróktól" topik
- user2: Kia Ceed Gold 160 1.5 T-GDI MY2024
- eBay-es kütyük kis pénzért
- bitpork: Augusztus 2- szombat jelen állás szerint.
- Kempingezés és sátrazás
- gerner1
- sziku69: Szólánc.
- Chosen: Canon 5D II - portrézás 2025-ben
-
LOGOUT
A Microsoft Excel topic célja segítséget kérni és nyújtani Excellel kapcsolatos problémákra.
Kérdés felvetése előtt olvasd el, ha még nem tetted.
Új hozzászólás Aktív témák
-
#46597
Mutt
senior tag
zsoltzsolt
#46592
Mutt
senior tag
válasz
zsoltzsolt
#46592
üzenetére
Word Körlevél funkció (angolul Mail merge) kell neked.
-
Hege1234
addikt
Sziasztok!
google sheets-ben TEXTJOIN-al összetettem pár cellát/oszlopot
hogyan lehetne azt megoldani, hogy
csak akkor mutassa az összetett cellák szövegét ha B3 nem üres?KG
=TEXTJOIN(" ";true;A$1;B$2;A3;" - ";B3)ez mindig az állandó:
2021.05.07 - Péntek KGUP
=TEXTJOIN(" ";true;A$1;D$2;A3;" - ";D3)itt pedig ez:
2021.05.07 - Péntek UPehhez kapcsolódik az idő(A3) B3(adatok) oszlop pl:
2021.05.07 - Péntek KG 07:30 - tetoválás
2021.05.07 - Péntek UP 14:00 - tetoválásösszetéve a cellákat így néz ki
[kép3]végeredményt valahogy így képzelem el összesítve a napot
bár a növekvő idő miatt nem tudom meg lehetne-e így szűrni
és hogy a sorrend se változzon és ahogy most újra átgondolva
mivel kettészedtem KG-re és UP-ra a textjoin-t lesz jó pár sor kihagyás is
2021.05.07 - Péntek KG 07:30 - tetoválás
2021.05.07 - Péntek KG 11:00 - smink2021.05.07 - Péntek UP 14:00 - tetoválás
2021.05.07 - Péntek UP 17:00 - tetováláspróbáltam a concat-ot is de mivel nem szöveg a dátum ezért csak egy hosszú számsort kaptam a dátum helyett
=PROPER(TEXT(DATE(2021;5;7);"yyyy.mm.dd - dddd"))köszönöm előre is!
-
Ukeve
tag
Igen, ezzel tisztában vagyok. Csináltam egy Vizsgalat nevű függvényt a Uselist mintájára, amit csak a C oszlopra alkalmazok. Ebben a függvényben szeretném ugye megkeresni a B oszlop adott cellájának az értékét az 'adatok' munkalapon. Abban nem vagyok biztos, hogy kell-e még módosítanom a többi függvényen, ahhoz hogy a Vizsgalat jól működjön.
A Vizsgalatnak ez a kódja:
=INDEX(ValData;1;HOL.VAN(Adatbevitel!B2;adatok!$1:$1;0)):INDEX(ValData;Counter;HOL.VAN(Adatbevitel!B2;adatok!$1:$1;0)) -
#46593
lappy
őstag
zsoltzsolt
#46592
lappy
őstag
válasz
zsoltzsolt
#46592
üzenetére
Google keresőbe beirod a megfelelő kulcsszavakat és utána tudsz nézni neked megfelelőt.
Makró szükséges hozzá főleg ha automatikusan többet szeretnél küldeni -
#46592
zsoltzsolt
addikt
zsoltzsolt
addikt
Van egy excel táblázat, amiben intézmények adatai vannak, a G oszlopban az e-mail címek. Hogyan tudnék ezen intézményeknek a legegyszerűbben e-mailt küldeni?
Köszönöm előre is a segítséget! -
#46591
Mutt
senior tag
anonymus89
#46590
Mutt
senior tag
válasz
anonymus89
#46590
üzenetére
Szia,
CSV-be mentéshez nézd meg a https://github.com/viszi/codes/tree/master/Excel/Useful/Export2CSV oldalon található kódomat.
Ha addin-né konvertálod, akkor folyamatosan elérhető lesz és akár saját menübe is kirakható.
üdv
-
#46589
lappy
őstag
anonymus89
#46588
lappy
őstag
válasz
anonymus89
#46588
üzenetére
mivel nem tudjuk hogy neked hova kell , ami majd ; lesz így nehéz segíteni
amit mutattam abból tudsz kiindulni vagy hasonló megoldásokból -
#46587
lappy
őstag
anonymus89
#46585
lappy
őstag
válasz
anonymus89
#46585
üzenetére
https://www.ablebits.com/office-addins-blog/2014/04/24/convert-excel-csv/
-
#46585
anonymus89
addikt
anonymus89
addikt
Sziasztok, jogosultsági beállításokat csv formátumban lehet kinyerni egy rendszerben.
Beimportálva excel táblába és amivel szükséges kiegészítettem de már készen vagyok.
Milyen módon tudnám visszanyerni ugyanolyan pontos vesszős formátumba mint a kezdetek kezdetén, hogy be tudtam importálni a felületen a kibővített jogosultságokat? -
Ukeve
tag
Sziasztok!
Szeretnék többszintű legördülő listát létrehozni az adataimnak, ehhez meg is találtam ezt a tutorialt. Csak egyetlen problémám van vele, hogy ez így túl zsúfolt, ezért a példában szereplő ország-város adatokat szeretném átvinni egy új munkalapra (pl. adatok). Ebben az esetben, viszont már ugye nem fognak jól működni a képletek. Mit kéne módosítanom rajtuk ahhoz, hogy a hozzáadott új munkalappal is jól működjenek a képletek? Próbálkoztam azzal, hogy egy új névtartományt hoztam létre, ami az előtte lévő cellában lévő értéket vizsgálja meg, mint a Uselist, de ez így nem működött sajnos. Tudnátok segíteni ebben?
Előre is köszönöm a segítséget!
-
Pakliman
tag
Sub btRogzit_Click()
Dim sor As Long
Dim lMax As Long
Dim l As Long
Dim emptyRow As Long
Munka2.Activate
emptyRow = WorksheetFunction.CountA(Range("A:A")) + 1
For sor = 1 To emptyRow - 1
If Cells(sor, 1) Like "KSZ-#*" Then
l = Mid(Cells(sor, 1), 5)
If l > lMax Then lMax = l
End If
Next sor
Cells(emptyRow, 1).Value = "KSZ-" & lMax + 1 'tbSorszam.Value -> többé nem kell:)
Cells(emptyRow, 2).Value = tbElado.Value
Cells(emptyRow, 3).Value = tbBrutto.Value
Cells(emptyRow, 5).Value = cbEv.Value & "/" & cbHonap.Value & "/" & cbNap.Value
Unload Me
End Sub -
kutga
félisten
Hölgyek/Urak!
Van egy ehhez hasonló excel táblám:
Sorszám Eladó Bruttó összeg Számla kelte
KSZ-1 abc Kft. 123 Ft 2020.12.21Készítettem egy userformot, amivel új sort lehet benne megadni, a kérdésem, hogy hogyan tudnám vba-ban megoldani, hogy a sorszám mindig eggyel növekedjen?
Eddig jutottam a kódrészletben.
Private Sub btRogzit_Click()
Dim emptyRow As Long
Munka2.Activate
emptyRow = WorksheetFunction.CountA(Range("A:A")) + 1
Cells(emptyRow, 1).Value = "KSZ-" & tbSorszam.Value
Cells(emptyRow, 2).Value = tbElado.Value
Cells(emptyRow, 3).Value = tbBrutto.Value
Cells(emptyRow, 5).Value = cbEv.Value & "/" & cbHonap.Value & "/" & cbNap.Value
Unload Me
End Sub -
Pakliman
tag
válasz
logitechh
#46565
üzenetére
Szia!
Mindkét exportos eljárásban az éppen aktív MUNKAFÜZETET NEVEZED ÁT (ActiveWorkbook.SaveAs)!
Mellékszál:
Sokszor hajtatod végre vele ugyanazokat a műveleteket.
Ezeket kiküszöbölheted egy egyszeri értékadással:sNewNamePart1 = ThisWorkbook.Path & "\" & Left(ThisWorkbook.Name, (InStrRev(ThisWorkbook.Name, ".", -1, vbTextCompare) - 1)) & "_Dezsike_"A cntr használatának nem látom semmiféle értelmét, hiszen a fájlnévben nem sorszámozást vagy darabszámot használsz, hanem pontos időt (persze lehet ebből is több, ha másodpercenként többször is lefut a program!!)
Ez egy lehetőség (ha kell, át tudod alakítani xls exportra is):
Sub ActiveSheetExportToTXT()
Dim sNewName As String 'A létrehozandó fájl neve
Dim sSheetName As String 'A mentendő munkalap neve
Dim sSheetFIX As String 'A FIX cellát tartalmazó munkalap neve
'Névnek a munkalap nevét és egy FIX cellából vett értéket szeretném plusz az aktuális dátum időpont másodpercre pontosan.
sSheetFIX = "A FIX cellát tartalmazó munkalap neve"
sSheetName = "A mentendő Munkalap neve"
sNewName = ThisWorkbook.Path & "\" & Left(ThisWorkbook.Name, (InStrRev(ThisWorkbook.Name, ".", -1, vbTextCompare) - 1)) & "_Dezsike_" & Worksheets(sSheetFIX).Range("FIX cella") & "_" & Format(Now, "yyyymmdd_hhnn_ss") & ".txt"
Worksheets(sSheetName).Copy
ActiveWorkbook.SaveAs Filename:=sNewName, FileFormat:=xlText, CreateBackup:=False
End Sub -
logitechh
csendes tag
válasz
logitechh
#46561
üzenetére
Sziasztok!
Összetákoltam valait de sajnos valami nem ok.
Össze vissza megismétli a nevet és nem mindig abba a mappába ment ahová kellene hanem egyel kijjebb majd ismét egy mappával kijjebb
Esetleg valaki tudja hol ronthattam el?Sub AutomatikusMentes()
ActiveSheetExportToTXT
MunkalapAtnevez
ActiveSheetExportToXLSM
End Sub
Sub MunkalapAtnevez()
Dim strMunkalapNev As String 'hely foglalás a memóriában
strMunkalapNev = "létszámjelentő" 'név deklarálása
ActiveSheet.Select 'aktív munkalap kijelölése
ActiveSheet.Name = strMunkalapNev 'aktív munkalap neének megadása a deklarált név alapján
End Sub
Sub ActiveSheetExportToTXT()
'aktív munkalap lementése a név:a munkafüzet neve_létszám_dátum_óra perc_másodperc
cntr = ""
If Dir(ThisWorkbook.Path & "\" & Left(ThisWorkbook.Name, (InStrRev(ThisWorkbook.Name, ".", -1, vbTextCompare) - 1)) & "_Dezsike_" & cntr & ".txt") = "" Then GoTo xprt
If Dir(ThisWorkbook.Path & "\" & Left(ThisWorkbook.Name, (InStrRev(ThisWorkbook.Name, ".", -1, vbTextCompare) - 1)) & "_Dezsike_" & cntr & ".txt") <> "" Then
cntr = 1
Do Until Dir(ThisWorkbook.Path & "\" & Left(ThisWorkbook.Name, (InStrRev(ThisWorkbook.Name, ".", -1, vbTextCompare) - 1)) & "_Dezsike_" & cntr & ".txt") = ""
cntr = cntr + 1
Loop
End If
xprt:
ActiveWorkbook.SaveAs filename:= _
ThisWorkbook.Path & "\" & Left(ThisWorkbook.Name, (InStrRev(ThisWorkbook.Name, ".", -1, vbTextCompare) - 1)) & "_Dezsike_" & Format(Now, "yyyymmdd_hhnn_ss") & ".txt", _
FileFormat:=xlText, _
CreateBackup:=False
End Sub
Sub ActiveSheetExportToXLSM()
'aktív munkalap lementése a név:a munkafüzet neve_létszám_dátum_óra perc_másodperc
cntr = ""
If Dir(ThisWorkbook.Path & "\" & Left(ThisWorkbook.Name, (InStrRev(ThisWorkbook.Name, ".", -1, vbTextCompare) - 1)) & "Létszámjelentő" & cntr & ".xlsm") = "" Then GoTo xprt
If Dir(ThisWorkbook.Path & "\" & Left(ThisWorkbook.Name, (InStrRev(ThisWorkbook.Name, ".", -1, vbTextCompare) - 1)) & "Létszámjelentő" & cntr & ".xlsm") <> "" Then
cntr = 1
Do Until Dir(ThisWorkbook.Path & "\" & Left(ThisWorkbook.Name, (InStrRev(ThisWorkbook.Name, ".", -1, vbTextCompare) - 1)) & "Létszámjelentő" & cntr & ".xlsm") = ""
cntr = cntr + 1
Loop
End If
xprt:
ActiveWorkbook.SaveAs filename:= _
ThisWorkbook.Path & "\" & Left(ThisWorkbook.Name, (InStrRev(ThisWorkbook.Name, ".", -1, vbTextCompare) - 1)) & "Létszámjelentő" & Format(Now, "yyyymmdd_hhnn_ss") & ".xlsm", _
FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False
End Sub -
pecze
aktív tag
Sziasztok!
Ha úgymond táblaneveket használok egy táblázatban (pl. Táblázat1[Ország]) és a képletben szükség lenne arra, hogy ez az oszlop ne változzon a képlet másolásakor, akkor mit lehet tenni? Próbáltam dollározni, de nem igazán tetszett neki, illetve ha lehet, akkor nem kapcsolnám ki a beállításokban, mert ezekkel az elnevezésekkel dolgoznék szívesen.
-
logitechh
csendes tag
Sziasztok!
Makróval szeretném megoldani, hogy egy munkafüzet sok lapja közül csak egyet szeretnék txt-be elmenteni.
A txt-t szeretném abba a mppába mnenteni ahol maga az excel van. Névnek a munkalap nevét és egy fix cellából vett értéket szeretném plusz az aktuális dátum időpont másodpercre pontosan.
-
#46560
Delila_1
veterán
Intel q8200
#46559
Delila_1
veterán
válasz
Intel q8200
#46559
üzenetére
Tegyük át a két makrót az egyes lapok helyett a ThisWorkbook laphoz.
A VB szerkesztőben bal oldalon kattints a ThisWorkbook-ra, majd jobb oldalra másold be a két makrót.
A füzet megnyitásakor ez a makró indul:Private Sub Workbook_Open()Dim oCtrl As Office.CommandBarControlApplication.OnKey "^c", ""Application.OnKey "^x", ""Application.OnKey "^v", ""For Each oCtrl In Application.CommandBars.FindControls(ID:=21)oCtrl.Enabled = FalseNext oCtrlFor Each oCtrl In Application.CommandBars.FindControls(ID:=19)oCtrl.Enabled = FalseNext oCtrlApplication.CellDragAndDrop = FalseEnd SubBezárás előtt automatikusan pedig ez:
Private Sub Workbook_BeforeClose(Cancel As Boolean)Dim oCtrl As Office.CommandBarControlApplication.OnKey "^c"Application.OnKey "^x"Application.OnKey "^v"For Each oCtrl In Application.CommandBars.FindControls(ID:=21)oCtrl.Enabled = TrueNext oCtrlFor Each oCtrl In Application.CommandBars.FindControls(ID:=19)oCtrl.Enabled = TrueNext oCtrlApplication.CellDragAndDrop = TrueEnd Sub -
#46559
Intel q8200
senior tag
Delila_1
#46380
-
carlosss
friss újonc
Köszi, megtaláltam a banális hibát, amit elkövettem. Az alap munkalapon a beírt eredményeknél kis háromszög a sarokban, ha megfelelő helyre mentem pici felkiáltójel, hogy a szám szövegként szerepel. Bár a cella formázást számra állítottam, de ez nem volt elég neki. A felkiáltójelnél ha rányomtam, hogy alakítsa számmá, máris megoldódott a probléma. Ég a bőr a képemről
-
carlosss
friss újonc
Sziasztok, némi segítségre lenne szükségem sport eredmények vezetésével kapcsolatos excelben.
Jelenleg 2 munkalappal dolgozom, bár ez még változhat a későbbiekben. Az első munkalap [Meccsek] tartalmazza a bajnokságunk során lejátszandó meccseket, párosítások előre beírva. A meccs lezárultát követően beírom az adott sorba az eredményt, ami a következő munkalapon [Ágrajz] automatikusan bekerül az ágrajz megfelelő celláiba. Eddig rendben is vagyunk, sima cellahivatkozással megoldható.
Az ágrajz végén azonban különböző összetett függvények segítségével kiszámolom a következőket: hány nyertes meccse van az adott játékosnak és hány vesztes. Egy játékos sora végén ezt többszörösen összetett ha függvénnyel oldom meg, ami fix értékekkel eddig jól is működött.
Pl. a győzelmek összeadása így néz ki az ágrajz munkalapon az első játékosnál:
=HA(B2>C2;1;0)+HA(D2>E2;1;0)+HA(F2>G2;1;0)+HA(H2>I2;1;0)+HA(J2>K2;1;0)+HA(L2>M2;1;0)+HA(N2>O2;1;0)+HA(P2>Q2;1;0)+HA(R2>S2;1;0)+HA(T2>U2;1;0)+HA(V2>W2;1;0)+HA(X2>Y2;1;0)
Az eredmény sajnos most mégsem jó, és a probléma a hivatkozásból ered. A cellák ugyan a jó értéket mutatják, de amikor ezekből a hivatkozott cellákból akarom a fenti képletet alkalmazni, akkor nem az értéket veszi figyelembe, hanem a hivatkozott cellákat. Így a =Meccsek!F2 nagyobb, mint a =Meccsek!D2, függetlenül attól, hogy a =Meccsek!D2 értéke magasabb a =Meccsek!F2 értékénél.
Tud valaki erre valami megoldást? Szuper lenne, ha valaki segítene -
Fferi50
Topikgazda
-
logitechh
csendes tag
Sziasztok!
FKERES függvénnyel szeretnék közelítő keresést megoldani.
Van egy dátumom amiből kiszámolom a hónap 3 dekádját (1-10;11-20;21- a hónap utolsó napjáig)
Majd a dátumból szeretném megkapni mejik dekádba esik:
A fenti példában a "2021.05.01-2021.05.10"-nak kellene megjelenni.
-
Hege1234
addikt
elég sok cellára és tartományra meg kellene csinálnom
scriptelve gyorsabban megcsinálnám
sebességben észre lehetne venni valamit ha a function onEdit script
több száz soros lenne?
csak azért kérdezem mert általában mindenhol viszonylag csak 10-15 soros
scriptek szoktak lenni
lappy
köszi szépen, sokat segített!
kellett a két $=$E$1="pontos szó"
-
Hege1234
addikt
google táblázatok:
feltételes formázással kapcsolatban kérném a segítségeteket
hogyan kell azt megcsinálni hogy E1:E2 összevont cellába
ha beírok egy pontos szót akkor beszínezze ezeket az oszlopokat is B5:E29?
próbáltam azt hogy ctrl-al kijelöltem az E1:E2-őt majd a B5:E29 -et de úgy nem volt jó
a B5:E29 tartományába pedig nem szeretnék beleírnielőre is köszi!
-
#46548
pappkarcsi
senior tag
pappkarcsi
senior tag
Sziasztok!
Van arra ötlet, hogy hogyan lehet szabályozni azt, hogy csak engedélyezett makrókat lehessen futtatni egy domain gépen Excelben? Azaz van-e arra mód, hogy csak digitálisan / elektronikusan engedélyezve, aláírva lehessen futtatni makrókat? pl: AD azonosítás után a saját nevét írja ki a felhasználónak az Excel, akkor az biztonságos vagy veszélyes? Sajnos abban nem vagyok otthon, hogyan lehet ezt szabályozni bármilyen formában is. Esetleg van valamiféle makró ellenőrző biztonsági szoftver? Ezeket az engedélyek hogyan "teríthetők" ki a felhasználóknak? -
spe88
senior tag
válasz
Fferi50
#46545
üzenetére
Így van. Az első 2 a C-re mutat. De milyen jogon változtatja ezt meg a PDF-be mentéskor? Illetve maga az Adobe Reader, ha ő a ludas.
A lényeg, hogy én hiába stabilizálom (jelentsen ez bármit is) az eredeti linket az Adobe Readerben, ha ezt egyenként minden usernak meg kell csinálni, akkor veszett fejsze nyele..
Komolyan mondom ezek már szabotázsakciók, hogyan b***k ki a userral. Elképesztő.
-
Fferi50
Topikgazda
Szia!
"Ez tuti valami PDF-es adatbiztonsági bohóckodás."
Szerintem pedig nem. Ha megnézed a linkeket, láthatod, hogy az első kettő helyi fájlra mutat, feltételezhetően egy ideiglenesen létrehozottra - erre utal az AppData/Local ill a documents$ az elérési utakban. Azaz megnyitás előtt a hálózatról letölti a helyi gépre a fájlt.
A PDF szerkesztőben kellene megnézni, hogyan lehet az eredeti linket stabilizálni.
Üdv. -
spe88
senior tag
Sziasztok!
Egy PDF-et ment a makróm, de a benne lévő hiperhivatkozás elérési útja megváltozik. Ez tuti valami PDF-es adatbiztonsági bohóckodás. Tudna nekem valaki segíteni?
Ha simán makró nélkül mentem ki, akkor is megváltozik az elérési út a PDF-ben és értelemszerűen nem működik.
A hiperhivatkozás egy szervercímre mutat. A képen látszik.
Mitévő legyek?Köszönöm
-
#46537
Fferi50
Topikgazda
pero19910606
#46533
Fferi50
Topikgazda
válasz
pero19910606
#46533
üzenetére
Szia!
A 2. kérdésre még egy ötlet:
Az átmásolás előtt megjegyzed, mi az utolsó sor az ellenőrzős táblában és ez után eggyel kell kezdeni a kitöltést (ez lesz LR3 értéke). És nem kell hozzá ciklus, egy menetben adhatsz értéket az adott tartománynak:Range("B" & LR3 & ":B" & LR4).Value="Magas érték C gyár"
Csak minden másolás után be kell írni az okokat.
Üdv. -
#46535
Fferi50
Topikgazda
pero19910606
#46533
Fferi50
Topikgazda
válasz
pero19910606
#46533
üzenetére
Szia!
1. Használd a Listobject DataBodyRange tulajdonságát:ActiveSheet.Listobjects.DataBodyRange.SpecialCells(xlCellTypeVisible).Copy Destination:=Sheets("Ellenőrzés").Cells(3,2) " ide megadhatod direktben a céltábla címét,
2. Nézd meg, hogy az LR4 sor feletti cella üres-e és addig menj visszafelé, amíg üres a felette levő sor. Esetleg próbáld meg az End(xlUp) -ot ismételten végrehajtani ettől a cellától.
Üdv. -
#46534
Delila_1
veterán
pero19910606
#46533
Delila_1
veterán
válasz
pero19910606
#46533
üzenetére
Szűrés után megadhatod az első látható sor számát,
tol = Range("A2:A10000").SpecialCells(xlCellTypeVisible).Row
majd az utolsótig = Range("A" & Rows.Count).End(xlUp).Row
Ezután már gyerekjáték a másolás.
Pl.Range(Cells(tol, 1), Cells(ig, 5)).Copy Sheets("Másik lap").Range("A5") -
#46533
pero19910606
csendes tag
pero19910606
csendes tag
Sziasztok,
Különböző szűrt adatokat kellene átmásolnom egy másik sheet-re, majd ott szeretném megadni az okot is, amiért újra kell ellenőrizni ezeket. pl.:
Egy termékből 1 MFt feletti rendelést adunk le az egyik raktárunkba, így külön ellenőrizni kell:
Sajnos két problémám is van.
1. Ha Rendelés sheet-en leszűröm az adatokat, akkor csak az alábbi kóddal tudom átmásolni:ActiveSheet.ListObjects("Rendelés").Range.AutoFilter Field:=35, Criteria1:= _
">=1000000", Operator:=xlAnd
With Worksheets("Rendelés")
LR = .Cells(.Rows.Count, "A").End(xlUp).Row
Range("A11: B" & LR).CopyÍgy viszont csak a fejléccel együtt tudom átmásolni a szükséges adatokat, de nekem csak a tényleges szűrt értékre van szükségem.
Van esetleg erre egy jobb ötletetek?2. Az ellenőrzés sheet-en szeretném megadni az okot, hogy miért kell ellenőrzni a rendelést (magas érték, magas készlet, stb). Az alábbi kódot használom:
With Worksheets("Ellenőrzés")
With Worksheets("Ellenőrzés")
LR3 = .Cells(.Rows.Count, "C").End(xlUp).Row
LR4 = .Cells(.Rows.Count, "B").End(xlUp).Row 'ezzel keresném meg az első üres sort az az "ok" oszlopban
For i = LR4 To LR3
Cells(i, 2) = "Magas érték C gyár"
Next i
End WithEz addig jól is működik, amíg csak 1 sorban van adat. Ha viszont átmásolok 10 sornyi értéket, akkor nem az első üres sortól írja be az okot, hanem csak a legutolsóba.
[kép]Gyanús, hogy ezt azért teszi, mert az összes adat "Táblázatként " van formázva. Erre azért lenne szükségem, mert így dinamikusan változik minden formázás és képlet.
Van esetleg erre valami jó megoldásotok?
nagyon köszönöm előre is!
Pero -
-
matyas_16
friss újonc
Sziasztok! Hozzátok képest nagyon kezdőnek érzem magam, ezért előre is bocsánat a kérdésért. Adott egy tábla, egy havi beosztás, valaki nyitó, valaki záró. Nekem csak a szombatot és vasárnapot kell megszámolnom, a NY és Z cellákat.
Képlettel kellene megoldanom, hiszen következő hónapban az 1-je nem szombat lesz.Köszönöm előre is, file a mellékletben.
Excel 2007 -
-
atyca
senior tag
Sziasztok!
Egy másik lapon található adatra mutató függvényben szeretnék Ctrl+F -fel cserét végrehajtani, a 2021.május fül helyett a 2021.június fülre szeretnék hivatkozni.
Pl. =HA(AC2='2021.május '!AT4+'2021.május '!AQ4;"Ok";"Hiba")
azonban csere helyett a mentés másként ablakot dobja fel az excel.
De a többinél is így járok:
='2021.május '!C4
='2021.május '!AQ4
Manuálisan betallózva neki működik a dolog,csak úgy sok macera van vele, (lehúzva hármassával kéne, hogy nőjenek a cellák értékei)közel száz cellát kell manuálisan szerkesztgetni.
Köszi előre is minden segítséget! -
Tomika86
senior tag
Sziasztok
Office 365 esetén Excelben olyan vonalgrafikont szeretnék ahol az X tengely logaritmikus skála legyen.
10Hz 100Hz 1kHz 10kHz 100kHzA függőleges tengely sima skálájú, de középen legyen a vízszintes tengely és ettől fel és le is legyen +/- érték.
Hogyan kivitelezhető ez? Főleg az első érdekel
Köszönöm
-
Cicero
őstag
Sziasztok! Van ~50 munkafüzetem, és van egy "összegző" munkafüzetem. Az összegző munkafüzet tartalmazza az összes többi munkafüzetben szereplő elemek azonosítóját. Azt szeretném, hogy ha az elemhez a specifikus munkafüzet adott cellájába írok, az megjelenjen az összegző munkafüzeten, mint eredmény, hogy a tétellel "foglalkozva volt".
Erre azt találtam ki, hogy az összegző munkafüzeten felveszek az elem azonosítójához egy oszlopot, aminek az értéke a munkafüzet lap címe lenne és vlookup fv "table array" argumentumába ezt adom meg, meg persze az oszlopot amit ki akarok venni. Tehát vhogy így:=vlookup(A1;'A2'A: C;3;FALSE)azaz az "A2" cellában mindig a munkafüzet címe szerepelne. Ez valahogy lehetséges?.. Máshogy hogy?.. -
zsolti_20
senior tag
Sziasztok!
Segítséget szeretnék kérni, hogy 1 excel file hogyan modosítható 2 user által?
A munkahelyen van egy excel file a hálózati meghajtón. Több user is megtudja nyitni egyszerre de csak 1 tudja módosítani. Van arra lehetőség, hogy bárki aki megnyitja és módosítja, az megjelenjen a másiknál is ha az nyitva van nála? Mint pl egy adatbázis, folyamatos frissítéssel. -
Fferi50
Topikgazda
válasz
pentium4
#46515
üzenetére
Szia!
Fkeres függvénynél rész előfordulást a csillag (*) joker karakterrel kereshetsz, pl.
"*" & A1 & "*" minden olyan előfordulást megtalál, amelyikben előfordul az A1 cella értéke.
Ha elől van csak csillag, akkor az A1-re végződő, ha hátul van csak, akkor az A1-el kezdődő találatokat adja vissza. A negyedik paraméter HAMIS vagy 0 legyen ebben az esetben.
A mutatott példádban viszont be kell vetni egy másik függvény kombinációt:
$B$1=$A$19 helyett, ha a B1 érték lenne a keresendő, akkorHA(HIBÁS(SZÖVEG.KERES($B$1;$A$19:$A$2999);5000;SOR($A$19:$A$2999))
képlet lehet jó szerintem a KICSI függvény első paraméterének
Üdv. -
#46516
spe88
senior tag
Fire/SOUL/CD
#46514
spe88
senior tag
válasz
Fire/SOUL/CD
#46514
üzenetére
Király. Köszönöm. Működik. Ezt a screenupdatinget sem ismertem, de így sokkal elegánsabb, hogy nem ugrálnak az ablakok összevissza.
-
pentium4
senior tag
Sziasztok,
FKERES ÉS INDEX függvényben szeretnék kérni segitséget, a lényeg hogy több találatot kell megjeleníteni ezt meg is oldottam flottul tömbfüggvénnyel:
[=HAHIBA(INDEX(A$19:A$2999;KICSI(HA($B$1=$A$19:A$2999;SOR($A$19:A$2999)-SOR($A$19)+1);SOR(1:1)));"")]
Viszont ezzel az a baj hogy csak teljes egyezésre ad eredményt, ami nagyon nem jó, mert nem akkor fejből kellene tudni a komplett adatsor, ami kivitelezhetetlen.
részleges keresést miként lehet megoldani? amiben megtalálja az adott karaktereket azt mind kidobja.
KöszönömP4
-
#46514
Fire/SOUL/CD
félisten
spe88
#46513
Igen, normális. Meg kell jeleníteni, aztán megint elrejteni, persze ezt a "csiki-csukit" el lehet rejteni a felhasználó elől.
Application.ScreenUpdating = False
Sheets("Report MOS").Visible = True
Range ("'Report MOS'!A16:i25")
Selection.Rows.AutoFit
Sheets("Report MOS").Visible = False
Application.ScreenUpdating = True -
#46512
Lasersailing
senior tag
friccccc
#46499
Lasersailing
senior tag
válasz
friccccc
#46499
üzenetére
Nem az a gond, hogy pl. "A" file D1 cellájából másolsz "B" file A1-es cellájába?
A fenti példában a D1-es cellában lévő hivatkozás az előző oszlopra hivatkozik, amit meg tud tenni, mert ez a C1, de ha pl. az A oszlopba másolsz, akkor az már az A előtti oszlopba akar másolni, amit nem tud értelmezni.
Remélem sikerült érthetően leírnom, hogy mire gondolok... -
spe88
senior tag
Hello!
A problémám, hogy van "A" munkalapon van egy cellám (A1), a tartalma az forrásként szolgál egy másik, "B" munkalapon lévő cellának (A1). Ha a forráscellában hosszabban írok valamit, akkor a "B" munkalapon lévő cellában a cellaméret nem változik a szöveggel. Hiába van sörtörésre állítva.
Minden egyes alkalommal újra rá kell nyomni a "B" adatlapon, hogy jobb gomb, sörtöréssel több sorba. Pipa kivesz, pipa újra berak és OK gomb.
Elég amatőrnek tűnik, de egyszerűen nem változtatja a cella magasságát.
Remélem ilyen alap dolgokra nem kell valami makrót írogatni, és csak én rontok el valamit.
Köszi
-
#46508
lumpy92
aktív tag
Apollo17hu
#46497
lumpy92
aktív tag
válasz
Apollo17hu
#46497
üzenetére
Köszi!
-
#46506
Delila_1
veterán
dellfanboy
#46502
Delila_1
veterán
válasz
dellfanboy
#46502
üzenetére
Az előzőnél a januári adatokat nem lehetett kiválasztani. A B5 cella képletét látod az ábrán, ezt jobbra másolhatod. A B6 képlete jobbra, és lefelé másolható.
-
#46505
dellfanboy
őstag
dellfanboy
őstag
koszi mindkettotoknek. lehet nem voltam pontos
megprobalok egy kepet feltolteni.
szoval a 3. sorban levo vegeredmenyt szerenem megkapni HA, vagy barmi mas fv-el amennyiben lehetseges. 2. sorban van amit most hegesztettem ill. 9.sorban a munka2-rol adatok csak az egyszerusebb kedveert idemasoltam.
zold celle a legordulo honapom. ha kivalasztok egy honapot akkor:
az adott honaphoz tartozo erteket valamint az utana jovo honapokat kellene megjelenitenem 3.sorba -
#46504
Delila_1
veterán
dellfanboy
#46502
Delila_1
veterán
válasz
dellfanboy
#46502
üzenetére
Erre gondolsz? -
#46503
Fire/SOUL/CD
félisten
dellfanboy
#46502
válasz
dellfanboy
#46502
üzenetére
Sima HA fx-el megoldható pl.
Munka1 munkalap A1 cellájában vannak a hónapok a legördülőben
Munka2 munkalap A5-L5 tartományban a módosítandó cellák, akkorMunka2 A5-be:
=HA(Munka1!$A$1="április";0;"nem április")
és ezt másolod egérrel D5-ig (azt nem írtad, mi történjen az A5-D5 cellákkal, ha Munka1 A1-be nem április van, ezért tettem a képletbe a "nem április"-t)Munka2 E5-be:
=Munka1!$A$1
és másolod egérrel L5-ig -
#46502
dellfanboy
őstag
dellfanboy
őstag
lenne egy kerdesem amit jelenleg if[ha] fv-vel probalok megoldani, de lehet maskepp kellene.
a1 cellaban ki lehet valasztani a honapokat [jan-dec] legordulo lista data-data validation.
jelenleg A5:L5 tartomanyban egy masik sheetrol hivatkozok ertekeket.amit szeretnek, ha a1 cellaban kivalasztja vki az apr- honapot akkor
a5(jan)b5(feb)c5(mar)d5(apr) cellak 0 erteket hozzanak fel, viszont E5:L5 tartomanyban a hivatkozott munkalaprol az ertekeket.
erre van otletetk mi lenne az idealis, gyors fv? jelenleg ctrl ctrv-vel masolgatok de meguntam.a masik munkalapon mindig lesznek ertekek jan-dec intervallumban, viszont en csak a jovo honapokra szeretnem megjeleniteni ertekeket. erre van vmu tuti formula/otlet?
koszonom szepen!
Új hozzászólás Aktív témák
Hirdetés
- E-roller topik
- HiFi műszaki szemmel - sztereó hangrendszerek
- Synology NAS
- iRacing.com - a legélethűbb -online- autós szimulátor bajnokság
- Melyik tápegységet vegyem?
- Kerékpárosok, bringások ide!
- sziku69: Fűzzük össze a szavakat :)
- ThinkPad (NEM IdeaPad)
- Samsung Galaxy S22 Ultra - na, kinél van toll?
- Autós topik
- További aktív témák...
- Csere-Beszámítás! Olcsó Számítógép PC Játékra! R5 1500X / RX 570 8GB / 16GB DDR4 / 250SSD + 2TB HDD
- Bomba ár! Lenovo ThinkPad T470s - i5-6GEN I 8GB I 256GB SSD I 14" FHD I Cam I W10 I Garancia!
- ÁRGARANCIA!Épített KomPhone i5 10600KF 16/32/64GB RAM RTX 3060 12GB GAMER PC termékbeszámítással
- Lenovo Thinkpad P16 G2 - i9-13980HX, 64GB, 1TB SSD, 16" WQUXGA (3840 2400), RTX 4090 (ELKELT)
- Csere-Beszámítás! RTX Számítógép játékra! I5 13400F / 32GB DDR5 / RTX 4070 Super / 1TB SSD
Állásajánlatok
Cég: PCMENTOR SZERVIZ KFT.
Város: Budapest
Cég: CAMERA-PRO Hungary Kft
Város: Budapest