- iPhone topik
- Xiaomi Watch 2 Pro - oké, Google, itt vagyunk mi is
- Samsung Galaxy S20 és S20+ duplateszt
- Magyarországon is kapható a Moto G85 5G
- Samsung Galaxy A56 - megbízható középszerűség
- Motorola Razr 60 Ultra - ez a kagyló könnyen megfő
- Fotók, videók mobillal
- Netfone
- Android alkalmazások - szoftver kibeszélő topik
- Redmi Note 13 Pro 5G - nem százas, kétszázas!
-
Mobilarena
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
-
Delila_1
veterán
válasz
csferke
#15952
üzenetére
Sub Datum_L_be()
Dim sor As Integer
sor = Application.WorksheetFunction.Match([A1], Sheets(2).Columns(2), 0)
Sheets(2).Cells(sor, "L") = Date
End SubSub Novel_F_et()
Dim sor As Integer, CV As Object
For Each CV In [B27:B38]
If CV <> "" And IsNumeric(CV) Then
On Error GoTo Kov
sor = Application.WorksheetFunction.Match(CV, Sheets(2).Columns(1), 0)
Sheets(2).Cells(sor, "F") = Sheets(2).Cells(sor, "F") + Cells(CV.Row, "F")
End If
Kov:
Next
End Sub -
Delila_1
veterán
válasz
csferke
#15812
üzenetére
Szia!
A Lap1 lapon vannak az adataid az A:D tartományban.
1. Az E oszlopban fűzöd össze a várost és a nevet.
2. Névadással meghatározod az E oszlop tartományát. Legyen a név mondjuk NevVaros. A hivatkozásba ezt írd: =OFSZET(Lap1!$E$2;0;0;DARAB2(Lap1!$E:$E)-1;1), ezzel eléred, hogy a névvel ellátott tartományod rugalmasan követi a bevitt adatmennyiséget.
3. A Lap2-n ne az A1-be, hanem pl. a G1-be tedd az érvényesítést. Lista, a forrás =NEvVaros
4. Az A oszlopba szövegesen felviszed, milyen adatokat akarsz látni (név, ir.szám, város, cím).
5. B1 képlete: =INDEX(Lap1!A:E;HOL.VAN($G$1;Lap1!E:E;0);SOR()), ezt lemásolod a B4 celláig.Ha nem az első sorban kezded az adatok lekérdezését a Lap2 lapon, akkor a SOR() helyett 1-et, 2-t, stb. írj.
-
-
Delila_1
veterán
válasz
csferke
#15582
üzenetére
Az első lap egy új oszlopába tedd be az =A2& " "&C2 képletet, ami összefűzi a nevet és a várost. Legyen ez pl. a D oszlopban. Ügyelj, hogy az idézőjelek között 2 db szóköz legyen.
Másold le a képletet, jelöld ki mindet, és nevezd el mondjuk NV-nek (nés és város).
A 2. lap A1 cellájában az érvényesítésnél ezt add meg forrásként: =NV
Az A2 cellába a következő képlet jön:=FKERES(BAL(A1;SZÖVEG.KERES(" ";A1)-1);Munka1!A1:C5;2;0) & " " & FKERES(BAL(A1;SZÖVEG.KERES(" ";A1)-1);Munka1!A1:C5;3;0)
Itt is 2 db szóközöket írj.
Ebből a BAL(A1;SZÖVEG.KERES(" ";A1)-1) adja a keresendő nevet. Megkeresi az A1 cellában a 2 db szóköz helyét, megadja a keresendő nevet, és ennek megfelelően keres az 1. lap adatai között.
Azért kell dupla szóköz, mert a nevek tartalmaznak 1-1 db-ot. -
Delila_1
veterán
válasz
csferke
#14650
üzenetére
A Mutat makró ugyanaz, mint az Elrejt, csak az
If Cells(sor%, "D") = 0 Then Rows(sor%).EntireRow.Hidden = True
sor végén a True helyett legyen False.
A frissítő makród ilyen legyen:Private Sub Worksheet_Activate()
Mutat
ActiveSheet.PivotTables("PivotNenapFakt").PivotCache.Refresh
Elrejt
End Sub -
Delila_1
veterán
válasz
csferke
#14569
üzenetére
Szia!
Meg is kell jelenítenie, hiszen csak a D=0 sorokat rejti el a makró, a negatívakat nem. Kipróbáltam, bár a makrót nézve is látszott, hogy negatív D értéknél nem rejti el a sorokat.
A kimutatásban a D oszlopban vannak az értékek? Ha nem, az
If Cells(sor%, "D") = 0 Then Rows(sor%).EntireRow.Hidden = True
sorban írd át a "D"-t a megfelelő oszlop betűjelére.
-
Delila_1
veterán
válasz
csferke
#14475
üzenetére
Meg lehet oldani. A laphoz kell rendelned az alábbi makrót.
Private Sub Worksheet_Activate()
ActiveSheet.PivotTables("Kimutatás1").PivotCache.Refresh
Elrejt
End SubMikor a kérdéses lapra lépsz, ennek a makrónak az első sora frissíti a kimutatást. Ha nem Kimutatás1 a neve, írd át.
A második sor meghívja az Elrejt makrót. -
-
Delila_1
veterán
válasz
csferke
#14459
üzenetére
Az 1. lapra betennék egy új oszlopot, ami a számlázott-, és a befizetett összeg különbségét adja. Az adatokat az adatlapon is rendezheted, de a kimutatásban is.
A kimutatás sorába kerül a cég neve és a számlaszám, az adatokhoz ez a különbség. Itt még megjelennek a nulla tartozást mutató sorok. Ezeknek az eltüntetéséhez írtam egy kis makrót, amit egy gombhoz rendelhetsz.
Sub Elrejt()
Dim sor%, usor%
usor% = Cells(Rows.Count, "A").End(xlUp).Row
sor% = usor%
For sor% = usor% To 5 Step -1
If Cells(sor%, "C") = 0 Then Cells(sor%, "B").Delete
Next
End Sub -
#13935
Fire/SOUL/CD
félisten
csferke
#13934
-
#13933
Fire/SOUL/CD
félisten
csferke
#13932
válasz
csferke
#13932
üzenetére
Remélem jól értettem, azaz az A3-ban lévő napok számához kell hozzáadni 0,5-t vagy 1-et, attól függően, hogy A1 és A2 dátum közt eltelt hónapok száma 8 és 12 közé esik avagy 12-nél több...
Ha jól értettem, akkor A4 képlete
=HA(DÁTUMTÓLIG(A1;A2;"m")<8;A3;HA(ÉS(DÁTUMTÓLIG(A1;A2;"m")>=8;DÁTUMTÓLIG(A1;A2;"m")<12);A3+0,5;A3+1))
-
poffsoft
veterán
válasz
csferke
#13092
üzenetére
Sajna nincs, úgy néz ki.
Pedig nekem is megkönnyítené az életemet ....Delila_1: az a * 1 nagyon szép volt!
Én csak ezeket buta és lassú konverziós fv-eket tudtam volna ajánlani:
Range("A1").Value = CSng(Range("C3").Comment.Text) + CSng(Range("C4").Comment.Text)
vagy:
Range("A1").Value = CInt(Range("C3").Comment.Text) + CInt(Range("C4").Comment.Text)Szöveg számmá: Konverziós függvények
-
#13034
Fire/SOUL/CD
félisten
csferke
#13032
-
Delila_1
veterán
válasz
csferke
#12614
üzenetére
Nem nézted meg a csatolt képet, pedig ott a K2 és K3 cella éppen azt tartalmazza, amit kértél.
Amit most írsz, körkörös hivatkozást eredményezne. Az A1 cellában akarod megjeleníteni azt az adatot, amit a VLOOKUP az A oszlopban talál.
Tettem az első sorba (A:D) egy autoszűrőt, a G oszlopba pedig egy összefűzést (=A2&" "&D2)
Az érvényesítésben (I1 cella) forrásként a $G$2:$G$6 tartományt adtam meg, mert a 2:6 sorokba írtam adatokat. Az I1-ben történő kiválasztás után az autoszűrő a választás szerint szűri az A:D tartományt. Az I1 törlése esetén minden sor látszik.Nem írtad, hogy az A és D oszlopok közül melyik tartalmazza a város, ill. a cég nevét, ezért 2 makrót írtam. A megfelelőt rendeld a lapodhoz.
Private Sub Worksheet_Change(ByVal Target As Range)
'Város=D oszlop, Cég=A oszlop
Dim betu%, krit
If Target.Address = "$I$1" Then
If IsEmpty(Target) Then
Selection.AutoFilter Field:=1
Exit Sub
Else
Range("A1").Select
For betu% = Len(Target) To 1 Step -1
If Mid(Target, betu%, 1) = " " Then
krit = Left(Target, betu% - 1)
Exit For
End If
Next
End If
Selection.AutoFilter Field:=1, Criteria1:=krit
End If
End SubPrivate Sub Worksheet_Change(ByVal Target As Range)
'Város=A oszlop, Cég=D oszlop
Dim betu%, krit
If Target.Address = "$I$1" Then
If IsEmpty(Target) Then
Selection.AutoFilter Field:=4
Exit Sub
Else
Range("A1").Select
For betu% = 1 To Len(Target)
If Mid(Target, betu%, 1) = " " Then
krit = Right(Target, Len(Target) - betu%)
Range("J2") = krit
Exit For
End If
Next
End If
Selection.AutoFilter Field:=4, Criteria1:=krit
End If
End Sub -
Delila_1
veterán
válasz
csferke
#12549
üzenetére
Egy új oszlopban (legyen ez pl. a H) összefűzöd az A és D oszlop adatait. Érdemes a két adat közé elválasztót, mondjuk szóközt tenni.
H2 -> =A2 & " " & D2Ekkor az érvényesítés forrásánál a H oszlop szerepeljen.
K2 -> =VLOOKUP(LEFT($K$1,SEARCH(" ",$K$1)-1),A:D,2,0)
K3 -> =VLOOKUP(LEFT($K$1,SEARCH(" ",$K$1)-1),A:D,3,0) -
-
Delila_1
veterán
-
Delila_1
veterán
válasz
csferke
#12245
üzenetére
1.
Sheets("Bilans").[E14] = Application.WorksheetFunction.Sum(Range(Cells(Target.Row, 5), Cells(Target.Row, 6)))*-1Az [E14] a Range("E14") rövidebb formája.
2.
=IF(LEFT(F29,6)="szöveg", ("fco. naš mag. "&I8&" radnih dana od dana prijema uplate"),)Az utóbbit (is) próba nélkül írtam. A LEFT(F29,6)="szöveg" az F29 cella kezdetét vizsgálja a "szöveg" szó hosszúságában. Ha az F29 tartalma pl. "szöveg a tartományban", akkor a képletet tartalmazó cella eredménye fco. naš mag. szöveg radnih dana od dana prijema uplate – bármit jelentsen is.
Nem szükséges a CONCATENATE függvényt kiírni, elég az összefűzendő értékek közé & jelet írni.
-
Delila_1
veterán
válasz
csferke
#12231
üzenetére
Az If Not Intersect(Target, [D:E]) Is Nothing Then sorban a [D:E]-t írd át [B:C]-re.
Az eseménykezelő makrókban azt kell figyeltetni, ami billentyűzetről változik.
Nincs szükség egy külön oszlopra az összegzéshez a másik lapra történő átvitelhez, a Sum(Range(Cells(Target.Row, 4), Cells(Target.Row, 5))) sor elvégzi az összeadást. A sok képlet lassítja a futást.Nem próbáltam ki!
-
-
Delila_1
veterán
válasz
csferke
#12213
üzenetére
Szívesen.
Ezt a Sheet3 laphoz rendeld:Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, [A:A]) Is Nothing Then
Sheets("Sheet2").[B1] = Application.WorksheetFunction.Sum([D:E])
End If
End SubHa a Sheet3 lapon a D, vagy E oszlop változása után kellene az összegüket átvinni a Sheet2!B1 cellájába, akkor az
If Not Intersect(Target, [A:A]) Is Nothing Thensor helyére
If Not Intersect(Target, [E:D]) Is Nothing Then
kerüljön. Most a Sheet3 lap A oszlopába beírt érték hatására kerül a D:E oszlop összege a Sheet2!B1-be. -
-
-
-
#10435
Fire/SOUL/CD
félisten
csferke
#10434
válasz
csferke
#10434
üzenetére
ActiveCell.Offset(0, -1).Select - aktuális cellától balra lép 1-et
ActiveCell.Offset(0, 1).Select - aktuális cellától jobbra lép 1-et
ActiveCell.Offset(1, 0).Select - aktuális cellától lefelé lép 1-et
ActiveCell.Offset(-1, 0).Select - aktuális cellától felfelé lép 1-etBevallom, olyan billentyűzet kombinációt nem ismerek, ami az első üres cellára ugrana az adott sorban vagy oszlopban. Amúgy a CTRL+ kurzormozgatókkal kísérletezz, így az első/utolsó használt cellára ugorhatsz az adott sorban/oszlopban.
-
#9100
Fire/SOUL/CD
félisten
csferke
#9098
válasz
csferke
#9098
üzenetére
Először is a szintaxist az szigorúan tartsuk be, mert nem mindegyik Excel-ben fog működni ez a képleted (2010-ben biztosan nem megy). A helyes ez
=FKERES(21;A1:A20;1;HAMIS) vagy angol megfelelőjeként
=VLOOKUP(21,A1:A20,1,FALSE)ami annyit jelent, hogy keressük a 21-et az A1:A20 tartomány 1 oszlopában, pontos egyezéssel. Jól láthatóan az utolsó, logikai paraméter (igaz/hamis vagy true/false) határozza meg, hogy közelítő egyezéssel keressen, avagy pontos egyezéssel.
(Ahogy látod, ez nem a LOOKUP (KUTAT) függvény)
, mert ez így túl egyszerű.
Új hozzászólás Aktív témák
Hirdetés
Fferi50- WoW avagy World of Warcraft -=MMORPG=-
- Luck Dragon: Asszociációs játék. :)
- Kevesebb dolgozó kell az Amazonnak, AI veszi át a rutinfeladatokat
- A fociról könnyedén, egy baráti társaságban
- World of Tanks - MMO
- Spórolós topik
- Mielőbb díjat rakatnának a görögök az olcsó csomagokra az EU-ban
- Kuponkunyeráló
- Horgász topik
- iPhone topik
- További aktív témák...
- Eladó Steam kulcsok kedvező áron!
- Windows, Office licencek kedvező áron, egyenesen a Microsoft-tól - Automata kézbesítés utalással is!
- Eladó steam/ubisoft/EA/stb. kulcsok Bank/Revolut/Wise (EUR, USD, crypto OK)
- Kaspersky, McAfee, Norton, Avast és egyéb vírusírtó licencek a legolcsóbban, egyenesen a gyártóktól!
- Windows 10 11 Pro Office 19 21 Pro Plus Retail kulcs 1 PC Mac AKCIÓ! Automatikus 0-24
- Bomba ár! Dell Latitude 3550 - i5-5GEN I 4GB I 500GB I 15,6" HD I HDMI I Cam I W10 I Garancia!
- MacBook felvásárlás!! MacBook, MacBook Air, MacBook Pro
- ÁRGARANCIA!Épített KomPhone Ryzen 5 4500 16/32/64GB RAM RX 6600 8GB GAMER PC termékbeszámítással
- ÁRGARANCIA!Épített KomPhone i5 14600KF 32/64GB DDR5 RAM RX 9070 16GB GAMER PC termékbeszámítással
- Bomba ár! Lenovo ThinkPad E550 - i5-5GEN I 8GB I 256SSD I DVDRW I 15,6" HD I CAM I W10 I Garancia
Állásajánlatok
Cég: CAMERA-PRO Hungary Kft
Város: Budapest
Cég: Promenade Publishing House Kft.
Város: Budapest