-
GAMEPOD.hu
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
Topikgazda
válasz csferke #15797 üzenetére
A kérdés így szólt:
"A legördülőben hogyan kell megadni, hogy pl. a lap2 B és E oszlopai szerepeljenek".
Ha csak a B oszlop adatainak kell az érvényesítésben szerepelniük, akkor azt nevezd és, és vidd be forrásként.Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
Hobi78
csendes tag
Sziasztok!
Segítséget szeretnék kérni két excel fájl összefésülésével kapcsolatosan.
Az egyik excelben - nevezzük foglalási táblázatnak -, szerepelnek azok a kellékek, amiket bérbe adunk az ügyfeleknek. Itt napi szinten szerepel, hogy adott napon milyen termék volt bérbeadva.
’A’ oszlop dátum; ’B’ oszlop termék neve; ’C’ oszlop a mennyiség és én szeretném a ’D’ oszlopba a termék napi bérleti árát beírni, amit egy másik excel tartalmaz.
Természetesen egyesével a termékeket leszűrve beírhatom ezt az összeget, azonban több száz eszközről beszélünk és lenne egy pár órás feladat mire minden egyes eszköz árát átmásolnám. Talán a segítségetekkel egy függvénnyel meg lehet oldani. ’HA’ függvénnyel elindultam ugyan de a szövegegyezésnél elakadtam. (A két táblázatban csak az eszközök nevei egyeznek.)
Megköszönöm ha valaki tud nekem ebben segíteni! -
klambi
addikt
hogy íratom ki azt pl ha van 1 fizetés oszlopom, ennek veszem a maximumát, és a hozzá tartozó nevet írja ki, ne az összeget..
"Mond szépen angolul: Gyors róka!"
-
poffsoft
addikt
válasz klambi #15799 üzenetére
Irányított szűrő, ahogy a video mutatja.
Egy sorban lévő feltételek ÉS
Egymás alatti sorok VAGY
(ahogy mutatja a video is)
ennyi a titka.esetleg ha a munkalapodat megkaphatnám...
a relációs jelek megvannak? esetleg a szűrő tartományban nem maradt egy cellában "space" ?[ Szerkesztve ]
[ Szerkesztve ]
-
Delila_1
Topikgazda
válasz Hobi78 #15802 üzenetére
Vegyük, hogy a másik füzet Munka1 lapján az A oszlopban a termék neve van, B-ben az ár.
A foglalási füzet D2 cella képlete (feltételezve, hogy van címsor):=FKERES(B2;[Másikfüzet]Munka1!$A:$B;2;0)
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
klambi
addikt
sehol senki?
"Mond szépen angolul: Gyors róka!"
-
csferke
senior tag
válasz Delila_1 #15801 üzenetére
Szia Delila!
Igen, igazad van. Nem részleteztem eléggé a kérdést.
Tehát.
1.lapon adatok szerepelnek (név, ir.szám, város, cím stb.) sorba rendezve város&név szerint.
2.lap egy számla. Itt szeretném egy legördülőből kiválasztani a nevet akinek a számla készül és ez alapján értelemszerűen a névhez kötődve (lentebbi cellákban) vlookup-al a többi adat (város, cím stb.). Eddig ok.
Azt szeretném, hogy csak a legördülő listában látszódjon a név&város mert így sokkal kényelmesebben, gyorsabban lehetne megtalálni a keresett nevet.
Amikkor azonban kiválasztom a keresett nevet akkor a cellában csak a név szerepeljen. A cím meg a többi szükséges adat lejjebb a megfelelő cellákban vlookup-al a kiválasztott név alapján.
Remélem, hogy lassacskán sikerül megfogalmaznom, hogy mit is szeretnékköszönöm türelmedet, segítségedet
-
Vladek83
tag
Sziasztok!
Kérdésem a következő lenne:
Van egy csoportosított rész, és azt szeretném, hogy ne csak a (plusz,mínusz) jellel lehessen kibontani. Gondoltam, hogy az egyik cellába írok egy szót majd hivatkozok rá. Sajna így nem működik...
Előre is köszönöm!!! -
Delila_1
Topikgazda
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.
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
Delila_1
Topikgazda
válasz Vladek83 #15813 üzenetére
Arra gondolsz, hogy ha egy cellába beírod, hogy "zár", akkor az első szinteket mutatja, a "nyit" beírására a másodikakat is? Erre írtam egy makrót, ami a H1 cella tartalmának a változására végrehajtja a fentieket. A makrót a laphoz kell rendelned.
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$H$1" Then
If Target = "nyit" Then
ActiveSheet.Outline.ShowLevels RowLevels:=2
ElseIf Target = "zár" Then
ActiveSheet.Outline.ShowLevels RowLevels:=1
End If
End If
End SubA H1 cellában alkalmazhatsz érvényesítést.
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
Vladek83
tag
válasz Delila_1 #15815 üzenetére
Szia!
Huu, majdnem erre gondoltam, nem fogalmaztam meg rendesen...
Pl.:
- az "A1" cella tartalma "autók"
- alatta pl. "A15-ig" fel vannak sorolva ( Fiat, Ford...)
- az "A16" cella tartalma "motorok"
- alatta pl. "A25-ig" fel vannak sorolva ( Honda, Suzuki...)- klikkeléssel lehessen nyitni, zárni a tartalmakat... ( az "A1,A16-os cella tartalmát )
Még egyszer köszönöm!
-
Delila_1
Topikgazda
válasz Vladek83 #15816 üzenetére
Az A1-re, vagy A16-ra duplán klikkelve tűnnek el, vagy jelennek meg a címhez tartozó sorok.
További Case utasításokkal bővítheted.Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Select Case Target.Address
Case "$A$1"
If Rows("2:15").Hidden = True Then
Rows("2:15").Hidden = False
Else
Rows("2:15").Hidden = True
End If
Case "$A$16"
If Rows("17:25").Hidden = True Then
Rows("17:25").Hidden = False
Else
Rows("17:25").Hidden = True
End If
End Select
End SubProgramozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
Vladek83
tag
válasz Delila_1 #15817 üzenetére
Köszönöm, tökéletes!
Még egy rövid kérdésem lenne:
Melyik szakirodalmat lenne érdemes megvennem ( haladó szinten járhatok )
http://www.libri.hu/konyv/excel-haladoknak.html
http://www.libri.hu/konyv/makrohasznalat-excelben.html
Vagy, ha tudnál ajánlani valami mást, azt szívesen venném!
-
klambi
addikt
szevasztok!
ismét gondom lenne...
irányított szűrést csináltam, és kapcsolattal (ez alapján), de marhára nem ment, csak az első feltételt veszi figyelembe, mi lehet a gond?"Mond szépen angolul: Gyors róka!"
-
Delila_1
Topikgazda
válasz Vladek83 #15818 üzenetére
Szívesen.
Nem ismerem ezeket a könyveket. Nekem 2 majdnem azonos című könyvem van, az egyiket Krizsák László, a másikat Kovalcsik Géza írta. Cím: Az Excel (verziószám) programozása.
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
pirit28
csendes tag
Sziasztok !
A következő feladat elé állítottam magam.Van egy táblázatom amelyben egy olyan dolgot szeretnék tenni, hogyha kijelölök egy cellát pl: C10 akkor a C1: C2 cella automatikusan szineződjön be ezzel mutatva ,hogy a c oszlopban vagyok éppen.Ha pl:; Az E250-et jelölöm ki akkor meg az E1:E2 cella szineződjön be..Van-e erre valamilyen lehetőség,mert én szétnéztem mindenütt de nem igazán találtam rá választ.2002-es office-t használok.Ha esetleg van rá megoldás akkor szeretném ha nem csak az adott oszlopban levő cella szineződne be ,hanem a kijelölt cella adott sorában levő első cella is.Pl:; kijelölöm a K22-es cellát akkor a K12 ill. a 22-es sor A1-es cellája is kijelölve lenne.
A választ előre is köszönöm.[ Szerkesztve ]
-
Delila_1
Topikgazda
válasz pirit28 #15823 üzenetére
Nem az, amit kértél, de hasonló. Szálkeresztben mutatja a cellát, amire rákattintottál. A laphoz kell rendelned. Nem én írtam.
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Cells.FormatConditions.Delete
With Target
With .EntireRow
.FormatConditions.Add Type:=xlExpression, Formula1:="1"
With .FormatConditions(1)
With .Borders(xlTop)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = 5
End With
With .Borders(xlBottom)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = 5
End With
.Interior.ColorIndex = 20
End With
End With
With .EntireColumn
.FormatConditions.Delete
.FormatConditions.Add Type:=xlExpression, Formula1:="1"
With .FormatConditions(1)
With .Borders(xlLeft)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = 5
End With
With .Borders(xlRight)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = 5
End With
.Interior.ColorIndex = 20
End With
End With
.FormatConditions.Delete
.FormatConditions.Add Type:=xlExpression, Formula1:="1"
.FormatConditions(1).Interior.ColorIndex = 36
End With
End SubProgramozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
Delila_1
Topikgazda
-
Vladek83
tag
Sziasztok!
Olyan kérdésem lenne, hogy:
Egy munkalapon több diagram szerepel, de én szeretném kiválasztani, hogy melyiket lássam.
Vezérlőelemekkel gombbal próbálkozok, de eddig negatív....Köszönöm előre is.
-
Delila_1
Topikgazda
válasz Vladek83 #15830 üzenetére
Érvényesítésben add meg a diagramok nevét, innen választhatod ki, melyiket szeretnéd látni. Nálam ez az A14 cellában van.
Sub diagram()
Dim nev$, d As Integer, dnev
nev$ = Range("A14")
For d = 1 To ActiveSheet.ChartObjects.Count
dnev = "Diagram " & d
If dnev = nev$ Then
ActiveSheet.ChartObjects(dnev).Visible = True
Else
ActiveSheet.ChartObjects(dnev).Visible = False
End If
Next
End SubMegteheted, hogy egy eseményvezérlésbe teszed be a makrót, akkor a választás után nem kell külön indítani, azonnal a kedvenc diagramod lesz látható. Ezt a makrót a laphoz kell rendelned.
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$14" Then
Dim nev$, d As Integer, dnev
nev$ = Range("A14")
For d = 1 To ActiveSheet.ChartObjects.Count
dnev = "Diagram " & d
If dnev = nev$ Then
ActiveSheet.ChartObjects(dnev).Visible = True
Else
ActiveSheet.ChartObjects(dnev).Visible = False
End If
Next
End If
End SubMindkét makrónál figyelj arra, hogy az Excel milyen nevet adott a diagramjaidnak. Nálam 'Diagram 1', 'Diagram 2', stb. Érdemes megtartani (ebben az esetben) ezeket az automatikusan generált neveket, hogy a for-next ciklusban egyszerűen utalhass rájuk.
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
A_ScHuLcZ
addikt
Sziasztok!
Nem sokat konyítok excelhez, csak alap dolgokat ismerem benne, tudnátok nekem segíteni, hogy duplikációszűrést hogy tudok csinálni?
Vannak munkalapjaim, mindegyik munkalap pl C oszlopában e-mail címek felsorolva, és az egész dokumentumra vonatkozóan ki akarom szűrni a duplikációkat, miképp fogjak hozzá?"I'd tell you a joke about UDP, but you probably wouldn't get it."
-
dellfanboy
őstag
van egy xls-em 460 sheet-en hasonló adatok vannak az összes sheeten, ezt szeretném szummázni.
A probléma az, hogy egyik sheet-en a b30 cella kell a másikban pedig a keresett érték, pedig a b5
erre milyen fv-t írhatnék fkeres jó lenne, de nem tudom hogy kellene szummázni, ill 460 sheet, elfér a fv sorba? milyen hosszú fv-t lehet írni excle 2007.-ben?eladó dolgok:mondd az árát és vidd http://hardverapro.hu/tag/dellfanboy#aprohirdetesei
-
Delila_1
Topikgazda
válasz dellfanboy #15834 üzenetére
Érd el, hogy minden lapon azonos cellában legyen az összegzendő érték. Találd meg, melyik cella szerepel a legtöbb lapon. Ha ez pl. a B30, akkor a többi lap B30 cellájába hozd be ezt az értéket. Ahol B3-ban van, ott a B30 legyen =B3. Lehet, hogy jobb egy olyan cellába vinni, amit később az adatmennyiség növekedése miatt biztosan nem írsz majd felül.
Mikor ez megvan (babrás munka, de 1× kell végrehajtani), az összegző lapon a képlet
=SZUM('Első lap neve:Utolsó lap neve'!B3)Figyelj az aposztrófokra!
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
Delila_1
Topikgazda
válasz A_ScHuLcZ #15832 üzenetére
Címsort feltételezve a D2 képlete legyen =DARABTELI($C$2:$C2;C2)
Lényeges a $ jelek elhelyezése. A képletet lemásolod az adataid mellé. Ahol 1-nél nagyobb számot kapsz, azt a sort törölheted.
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
poffsoft
addikt
válasz dellfanboy #15834 üzenetére
persze azt is elmondhatnát, minek alapján találod meg, hogy éppen b30, vagy b5?
akkor talán megoldható makróval is (a rendezés is)...[ Szerkesztve ]
-
akyyy
senior tag
olyat szeretnék csinálni, hogy beírok különböző kérdéseket, egy sorba, egymás alá.
Máshol szeretném ezeket a kérdéseket VÉLETLEN sorrendben, egymás alá megjeleníteni. Mindet! És ha lehet, akkor ha újból csinálok egy ilyen véletlen sorrendet, akkor másmilyen véletlen sorrendben legyen. Lehetséges ez?
-
poffsoft
addikt
Option Explicit
Sub kever()
Dim sws, tws As Worksheet
Dim i, endr, dest As Long
Set sws = ActiveWorkbook.Sheets("Munka1")
Set tws = ActiveWorkbook.Sheets("Munka2")
endr = sws.Range("A65536").End(xlUp).Row
sws.Range("V1:V" & Range("V65536").End(xlUp).Row).Clear
tws.Range("A1:A" & Range("A65536").End(xlUp).Row).Clear
sws.Range("A1:A" & endr).Copy Destination:=sws.Range("V1")
Randomize
For i = endr To 1 Step -1
dest = Int((i) * Rnd() + 1)
tws.Range("A" & (endr - i + 1)) = sws.Range("V" & dest)
sws.Range("V" & (dest + 1) & ":V" & i).Copy Destination:=sws.Range("V" & (dest))
sws.Range("V" & i).Clear
Next i
End Subsws a forrás lap, tws a cél (ahová összekeveri)
az "A" oszlopban kell lenni a kérdéseknek.[ Szerkesztve ]
-
Vladek83
tag
Jó reggelt!
Feladatom a következő lenne:
Egy adott cella tartalmát érvényesíteni szeretném, hogy csak 3 tizedesjegyig lehessen bele írni, és egy figyelmeztető üzenet ugorjon fel, hogyha mást akar írni. Lehet a megoldás egyszerű, de még nem jöttem rá...
-
dellfanboy
őstag
válasz poffsoft #15838 üzenetére
pdf-et konvertáltam xls-é és megnéztem az első két munkalapot.
mindenhol az adott ügyféladathoz tartozó km óra állás van, csak ha az ügyfél pl. vásárolt benzint, matricát akkor a km a legutolsó sorban lesz (b30 ) ha meg szinte semmit se vásárolt akor b5, e kettő érték között 460 munkalap esetén elég nagy a szórás
az is megfelelő lenne ha a 460 munkalapot egy munkalapra tudnám rakni, és akkor egy sima szűrés.
hogy lehet 460 sheet-en 1 sheetre másolni?eladó dolgok:mondd az árát és vidd http://hardverapro.hu/tag/dellfanboy#aprohirdetesei
-
pirit28
csendes tag
Jó napot az uraknak !
Kérdésem a következő lenne, miért csak a második feltételnél működik a "mindkét cellát töltsd ki" ?
=IF(SUM(G125;I125)=0;"-";IF(G125="";"mindkét cellát töltsd ki !";IF(I125="";"mindkét cellát töltsd ki !";AVERAGE(G125;I125))-VLOOKUP(E125;$K$9:$T$125;10;0)))
válaszokat előre is köszönöm..
-
poffsoft
addikt
válasz dellfanboy #15844 üzenetére
És a KM állás sorában nincsen olyan cella, ami azonosítja, hogy ez a km állás sora lesz? mert azt akár fv-nyel is megoldhatnánk...
makróval simán átmásolható:
Option Explicit
Sub CopyRows()
Dim i As Integer
Dim r1, c1, r2, c2, r3 As Double
Dim wsTest As Worksheet
Dim sname As String
sname = "Summa"
Set wsTest = Nothing
On Error Resume Next
Set wsTest = Worksheets(sname)
On Error GoTo 0
If wsTest Is Nothing Then
Worksheets.Add(Before:=Sheets(1), Count:=1, Type:=xlWorksheet).Name = sname
End If
Worksheets(sname).Cells.Clear
For i = 1 To Sheets.Count
If Not Worksheets(i).Name = sname Then
r1 = Worksheets(i).UsedRange.Row
c1 = Worksheets(i).UsedRange.Column
r2 = r1 + Worksheets(i).UsedRange.Rows.Count - 1
c2 = c1 + Worksheets(i).UsedRange.Columns.Count - 1
r3 = Worksheets(sname).UsedRange.Row + Worksheets(sname).UsedRange.Rows.Count
Worksheets(i).Select
Worksheets(i).Range(Cells(r1, c1), Cells(r2, c2)).Copy _
Destination:=Worksheets(sname).Cells(r3, c1)
End If
Next i
Worksheets(sname).Select
[A1].Select
End Sub[ Szerkesztve ]
-
Bobrooney
senior tag
Sziasztok!
- Ábrázoljuk egy önálló munkalapon elhelyezett diagramon a függvényeket (2p)!
- Csak egy diagramunk legyen, és azon a legutoljára kért függvény látszódjon (2p)!az első két pontos részt megcsináltam
ActiveChart.Location where:=xlLocationAsNewSheetA második két pontost viszont nem tudom, hogy mindig ugyan arra írja rá (pl egy diagramEn fülre), persze előtte törölje az előzőt
-
pirit28
csendes tag
Új hozzászólás Aktív témák
- EAFC 24
- Hamarosan bárki hazavihet egy Apple Vision Pro headsetet
- Hardcore café
- Külföldi rendelések: boltok, fizetés, postázás
- Hobby rádiós topik
- ArmA 3 - This Is War
- Amlogic S905, S912 processzoros készülékek
- Honor Magic6 Pro - kör közepén számok
- AMD GPU-k jövője - amit tudni vélünk
- Diablo IV
- További aktív témák...
- Bitdefender Total Security 3év/3eszköz! - "Tökéletes védelem most kedvező áron..."
- Új, bontatlan World of Warcraft gyűjtői kiadások
- PC JÁTÉKOK (OLCSÓ STEAM, EA , UPLAY KULCSOK ÉS SOKMINDEN MÁS IS 100% GARANCIA )
- Microsoft licencek KIVÉTELES ÁRON AZONNAL - UTALÁSSAL IS AUTOMATIKUS KÉZBESÍTÉS - Windows és Office
- Játékkulcsok olcsón: Steam, Uplay, GoG, Origin, Xbox, PS stb.
Állásajánlatok
Cég: Ozeki Kft.
Város: Debrecen
Cég: Alpha Laptopszerviz Kft.
Város: Pécs