- Visszavonta az Intel és a Qualcomm Huawei-hez kiadott exportlicencét az USA
- WLAN, WiFi, vezeték nélküli hálózat
- Még több AI-t hozna a Windowsba a Microsoft
- Vírusirtó topic
- Kodi és kiegészítői magyar nyelvű online tartalmakhoz (Linux, Windows)
- Windows 11
- Windows Insider Program
- Az Apple szerint ejteni kell az USA trösztellenes perét
- Proxmox VE
- Windows 8 / 8.1
-
IT café
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
-
bugizozi
őstag
válasz atillaahun #11800 üzenetére
Automatic update and no message
2003:
On the Tools menu, click Options, and then click the Edit tab.
Click to clear the Ask to update automatic links check box.2007:
Click Microsoft Office Button, and then click Excel Options.
Click Advanced.
Under General, click to clear the Ask to update automatic links check box.[ Szerkesztve ]
VCP7-DCV, CCNA ||| Ami működik, ahhoz nem szabad hozzányúlni!
-
atillaahun
veterán
válasz bugizozi #11799 üzenetére
A csatolásokat sajnos még mindig nem tudom kiválasztani.
(#11801) bugizozi
Ez jónak tűnt így elsőre, ki is vettem a pipát belőle, mentés, bezárás, megnyitás, és megkérdezte.
Szóval szerintem ez nem csatolás lesz. Vagy nemtudom. De az biztos.
Mondjuk az zavar még ezeket a frissítési beállításokat sem találom, mert mikor létrehoztam a webes lekérdezést egyszer megkérdezte hogy s mint akarom, de most utólag már fogalmam sincs hogy kéne módosítani.(#11798) Fire/SOUL/CD
Azért köszi. Végülis nem akkora gáz. Inkább még valami számkinyerős képletet szeretnék.[ Szerkesztve ]
-
Delila_1
Topikgazda
válasz atillaahun #11802 üzenetére
Nem olvastam vissza, de feltételezem, hogy makró is van a füzetedben. Az
Application.DisplayAlerts=False
sor letiltja a kérdést. Érdemes óvatosan bánni vele, sokszor hasznos a rákérdezés.
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
-
félisten
válasz Badb0y #11782 üzenetére
Private Sub CommandButton1_Click()
Dim MyRange As Range
'Ettől a cellától kezdődnek az adatok
Set MyRange = Range("C2")
For i = ActiveSheet.UsedRange.Rows.Count To MyRange.Row Step -1
If (InStr(1, Cells(i, MyRange.Column).Value, "BONTOTT", vbTextCompare) > 0 Or _
InStr(1, Cells(i, MyRange.Column).Value, "Scratch", vbTextCompare) > 0 Or _
InStr(1, Cells(i, MyRange.Column).Value, "Refurbished", vbTextCompare) > 0) Then
Cells(i, MyRange.Column).EntireRow.Delete
End If
Next i
End SubMindenki 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)
-
bozsozso
őstag
válasz Fire/SOUL/CD #9588 üzenetére
Sziasztok!
A #9584-es hozzászólásban amire most is válaszolok kaptam egy tökéletesen működő kódot, elég furcsa kerekítést szerettem volna. Most ismét szükségem van rá, de nem tudom működésre bírni és nem tudom mi lehet a probléma.
A következő hibaüzenetet kapom:
Compile error:
User-defined type not defined.
Mi lehet a probléma. Először 2003-as excelben próbáltam és nem működött most pedig kipróbáltam 2010 alatt is de ott sem.
-
félisten
-
bozsozso
őstag
válasz Fire/SOUL/CD #11807 üzenetére
Hát ezt nem értem
Ami el volt mentve az nem ment, ahogy bemásoltam újra úgy meg igen. Nem tudom mi lehetett. -
Mythunderboy
csendes tag
Sziasztok a 11647 es problémámra továbbra sem találok megoldást...HELP PLÍZ
[ Szerkesztve ]
Spacesynth 4 ever!
-
mr.nagy
tag
Sziasztok!
Csináltam egy form-ot az alábbi kóddal:
Private Sub OkButton_Click()
Dim sor%
Sheets("GENERÁLMAPPA").Activate
For sor% = Range("A1").End(xlDown).Row To 2 Step -1
If Cells(sor%, "B") = PolcTextBox.Value And Cells(sor%, "C") = FakkTextBox.Value Then
Rows(sor%).Delete
End If
Next
MsgBox "KÉSZ!"
End SubNos ez így nem működik, ha a TextBox értékek helyére konkrét számot írok akkor viszont hibamentesen lefut a program.
Mit rontok el?HMNote10Pro
-
Pá
addikt
Nem hiszem, hogy makró nélkül meg lehet oldani az alábbit, de hátha.
Szóval van A1 és B1 cellám. Azt szeretném, hogy ha írok valamit A1-be, akkor valahogy blokkolja, vagy védje le a B1 cellát, hogy oda már ne lehessen írni. Vagy ha először B1-be írok, akkor az A1-et védje le. Persze ha kitörlöm, amit írtam B1-be, akkor újra lehessen írni mindkettőbe. De ha már valamelyikben van valami, akkor a másikba ne lehessen.
Alternatív megoldásként jó lenne az is, ha A1-be írok valamit, akkor B1-ben megjelenik A1+x. De ha ezt pl B1-ben felülírom akármivel, akkor A1-ben jelenjen meg B1-x. Talán ez könnyebb, bár makró nélkül ebben sem bízom, hogy menni fog.
Bónusz kérdés: web query jelszóval védett oldalakra még mindig senki? (ezt lehet makróval is akár)
[ Szerkesztve ]
''Annyira vagyunk egészségesek, amennyire a gondolataink humánusak.''
-
Delila_1
Topikgazda
A laphoz rendelt makróval lehet megoldani. Az első változatot írtam meg, mikor az A1-be írva a B1 zárolt lesz. Mikor törlöd az A1 tartalmát, mindkét cella felszabadul. A B1-be írva az A1 lesz zárolt.
A makró indítása előtt a többi cellában – ahova még akarsz írni a fenti kettőt kivéve – töröld a zárolást.
Private Sub Worksheet_Change(ByVal Target As Range)
ActiveSheet.Protect UserInterfaceOnly:=True
If Not Intersect(Target, Range("A1:B1")) Is Nothing Then
If IsEmpty(Target) Then
Range("A1:B1").Locked = False
Exit Sub
End If
End If
If Target.Address = "$A$1" Then
Range("B1").Locked = True: Range("A1").Locked = False
End If
If Target.Address = "$B$1" Then
Range("A1").Locked = True: Range("B1").Locked = False
End If
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.
-
Koczka
tag
Üdv.
Törtet hogyan lehet beszúrni?
-
Delila_1
Topikgazda
válasz Koczka #11816 üzenetére
Elkészíted a szép képletet, mellé kattintasz. Ezzel kiléptél a szerkesztőből.
Most jobb gombbal ráklikkelsz, és az Objektum formázását választod. A Színek és vonalak fülön a Vonal egységben a Szín-nél kiválasztod a Nincs vonal opció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.
-
Plebi
senior tag
Sziasztok!
Egy céges excel táblázaton dolgozok, de egy kis egyszerűsítés kellene, mert rengeteg tételből áll. 2010 és 2011-es gyógyszer beszerzésről van szó, ami kb 5000 sorból áll. Már sikerült közös névre hozni azokat miket esetleg nem úgy írtak, de le kellene úgy szűrnöm, hogy az olyan tételeket dobja ki külön amik 2010-ben és 2011-ben is szerepeltek.
Sorból van egy évre utaló és cikknév sorom. Ezt valahogy össze lehet hozni, hogy a cikknév szerint vizsgálva azokat dobja ki, amiknél van 2010 és 2011-es is?
Egy példa ahogyan gondoltam:
Van olyan, hogy JODOFOAM mint cikknév ezt használták 2010-ben és 2011-ben is akkor a cella IGEN ha csak 2010 vagy 2011 van előtte akkor a cella NEM legyen.
Előre is köszönöm!
Gigabyte B450 Aorus Pro; Ryzen 5 3600; 16GB DDR4 3200 HyperX Predator, Sapphire Pulse 6600, SSD-k+HDD; NZXT H510 Elite; CM Silent Pro M2 620W; NZXT X62 Kraken; Dell 2311H; XSX; PS5
-
Delila_1
Topikgazda
-
Plebi
senior tag
válasz Delila_1 #11821 üzenetére
Szia!
Ez nagyon jó lenne. Az office 2007-es verzióját használom. Az évszámok a "H" oszlopban vannak az elnevezések az "I" oszlopban vannak. Az "I" oszlop mellé gondoltam, hogy kiírja IGEN vagy NEM.
Köszi!
Gigabyte B450 Aorus Pro; Ryzen 5 3600; 16GB DDR4 3200 HyperX Predator, Sapphire Pulse 6600, SSD-k+HDD; NZXT H510 Elite; CM Silent Pro M2 620W; NZXT X62 Kraken; Dell 2311H; XSX; PS5
-
Delila_1
Topikgazda
-
Plebi
senior tag
Ami még fontos lehet, az az, hogy a tételekből nem csak egy van és az évszámok eddig hónapokkal is el voltak látva, de azokat a könnyebb kezelhetőség miatt átírtam 2010 és 2011-re. Pl.: JODOFOAM beszerzés volt több cégnél is, így vett az egyik cég 2010 januárban februárban stb, másik cég máskor, harmadik.... és 2011-ben is volt. Most csak 2010 és 2011 van hónapok nincsenek.
Megoldható-e így is, hogy gyakorlatilag egy cikknév több sorban is szerepel, mivel több cég, más-más hónapban is beszerezhette.
Köszi!
Gigabyte B450 Aorus Pro; Ryzen 5 3600; 16GB DDR4 3200 HyperX Predator, Sapphire Pulse 6600, SSD-k+HDD; NZXT H510 Elite; CM Silent Pro M2 620W; NZXT X62 Kraken; Dell 2311H; XSX; PS5
-
Plebi
senior tag
válasz Delila_1 #11825 üzenetére
Nagyon szépen köszönöm!
Több óra szemfárasztástól kíméltél meg, mert azt kellett kigyűjtenem, hogy a termékek amiket beszerzünk azok drágultak vagy olcsóbbak lettek mint 2010-ben és mennyivel, így azokat könnyen ki tudom törölni amik nem voltak mindkét évben használva.
Köszi még egyszer.
Gigabyte B450 Aorus Pro; Ryzen 5 3600; 16GB DDR4 3200 HyperX Predator, Sapphire Pulse 6600, SSD-k+HDD; NZXT H510 Elite; CM Silent Pro M2 620W; NZXT X62 Kraken; Dell 2311H; XSX; PS5
-
-
Delila_1
Topikgazda
Mondok egy egyszerűbbet. Készíts kimutatást, amibe a H-t, I-t, és azt az oszlopot veszed be, amelyik az árat tartalmazza.
A sorcímkébe húzod a megnevezést, az oszlopcímkébe az évet, az értékekhez az árat.
Ezzel 1 sorba kerül minden termék neve mellé a 2 évi ára.
A kimutatás következő oszlopába betehetsz egy HA függvényt, ami kiírja az eredményt.=HA(C5>B5;"drágult";"olcsóbb lett")
Szerk.: Ez hülyeség volt, hagyd figyelmen kívül!
[ 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.
-
Plebi
senior tag
válasz Delila_1 #11827 üzenetére
Szűrést be tudok állítani, de autoszűrőt a nem sorok törlésére, hogyan lehet?
Jó sok mindent tudnék kérdezni, bár eddigi dolgokhoz nem kellett belemenni jobban az excelbe.
Gigabyte B450 Aorus Pro; Ryzen 5 3600; 16GB DDR4 3200 HyperX Predator, Sapphire Pulse 6600, SSD-k+HDD; NZXT H510 Elite; CM Silent Pro M2 620W; NZXT X62 Kraken; Dell 2311H; XSX; PS5
-
Plebi
senior tag
válasz Delila_1 #11828 üzenetére
Nem volt hülyeség, mert maga a kimutatás szerkezete pont jó lett Az, hogy drágult vagy olcsóbb lett az is jó, csak jórészt pont olcsóbb, így alá tudjuk támasztani, hogy a csoportos gyógyszer beszerzésre áttérés megérte.
Gigabyte B450 Aorus Pro; Ryzen 5 3600; 16GB DDR4 3200 HyperX Predator, Sapphire Pulse 6600, SSD-k+HDD; NZXT H510 Elite; CM Silent Pro M2 620W; NZXT X62 Kraken; Dell 2311H; XSX; PS5
-
Delila_1
Topikgazda
A J oszlopban "nem"-re szűrsz. Kijelölöd az összes sort, és törlöd. Előtte készíts egy másolatot a lapról.
A kigyomlált sorokról érdemes egy speciális szűrést készíteni. Adatok - Rendezés és szűrés - Speciális.
Az összegeket a G oszlopba írtam, azért van ez a kijelölés. Az L1:N... helyre kerülnek az adatok. Ezt a tartományt rendezed a megnevezés, majd az év szerint. Minden gyógyszered 2 értéke egymás alatt lesz, amivel már könnyen számolhatsz egy HA függvénnyel.
[ 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.
-
Delila_1
Topikgazda
-
Delila_1
Topikgazda
Az O3 cella képlete látszik a szerkesztőlécen. A fölötte lévő üres cellával együtt kijelölöd, és együtt lemásolod. Minden második sorba kerül képlet, ami mutatja az árak változásá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.
-
Plebi
senior tag
válasz Delila_1 #11832 üzenetére
Ilyen formán a szűrés és törlés az okés, azt hittem van automata törlés is.
Nem csalós mert idei év 1-9 hó és a tavalyi év 1-9 hó volt lekérve.
köszönök mindent!
[ Szerkesztve ]
Gigabyte B450 Aorus Pro; Ryzen 5 3600; 16GB DDR4 3200 HyperX Predator, Sapphire Pulse 6600, SSD-k+HDD; NZXT H510 Elite; CM Silent Pro M2 620W; NZXT X62 Kraken; Dell 2311H; XSX; PS5
-
Jimmy8
senior tag
Sziasztok!
Egy "egyszerű" kérdésem lenne:van egy ilyen képletem:
HA(J11<>J10;HOL.VAN(J11;$B$7:$B$96;0);HOL.VAN(J11;B(7+I10):$B$96;0))A B(7+I10) cellahivatkozás nem jó, az tuti. Meg lehet oldani valahogy, hogy a hivatkozásban (jelen esetben) a sor ne fix érték legyen, hanem a sor értéke függjön egy másik cella tartalmától?
-
Delila_1
Topikgazda
Írtam, hogy a kimutatás az összes eladott gyógyszer (fajtánkénti) árát hozza. Lehet, hogy idén egyes gyógyszerekből kevesebbet vettek, ezért az idei összes eladási áruk kevesebbre jön ki, mint a tavalyi, még akkor is, ha az a bizonyos orvosság éppen drágább lett. Talán éppen azért vettek belőle kevesebbet.
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
Plebi
senior tag
válasz Delila_1 #11836 üzenetére
Csináltam egy átlagár oszlopot, abból indult ki az egész és így már nem ad valótlan értékeket, nem az adott gyógyszer össz. beszerzését vizsgálom, mert az tényleg valótlant ad a jelen állapotában.
Gigabyte B450 Aorus Pro; Ryzen 5 3600; 16GB DDR4 3200 HyperX Predator, Sapphire Pulse 6600, SSD-k+HDD; NZXT H510 Elite; CM Silent Pro M2 620W; NZXT X62 Kraken; Dell 2311H; XSX; PS5
-
Delila_1
Topikgazda
Gondold át a dolgot. Van egy 5.000 Ft-os gyógyszer, amiből tavaly 5-öt vettek, ez 25.000 Ft.
Mivel az idén ennek az ára 8.000 Ft lett, csak kettőt vettek belőle, 16.000 Ft-ért. Az eladási árakból úgy néz ki, mintha csökkent volna az ára, pedig nem.Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
Plebi
senior tag
válasz Delila_1 #11840 üzenetére
Éppen emiatt az átlagárakat használom, mivel nekünk az a lényeg, hogy a csoportos beszerzéstől olcsóbbak lettek-e a gyógyszerek. A példád alapján: Tavaly a gyógyszer 5000Ft egységáron volt egy cégnél, idén pedig 8000 Ft, tehát drágult, nem az összeget nézem.
Gigabyte B450 Aorus Pro; Ryzen 5 3600; 16GB DDR4 3200 HyperX Predator, Sapphire Pulse 6600, SSD-k+HDD; NZXT H510 Elite; CM Silent Pro M2 620W; NZXT X62 Kraken; Dell 2311H; XSX; PS5
-
spok2
csendes tag
Üdv!
Az megoldható egy makróval, hogy egy Excel tábla munkalapjaiból a kód megfuttatásával csináljon külön táblákat meghatározott helyekre. Vagyis egy 100 munkalapos táblából csináljon 100 külön táblát minden munkalapot mondjuk az A1-ben szereplő névvel mentse a B1-ben szereplő elérési útra (C://....). Természetesen az A1 és B1 paraméter lenne munkalaponként. Ha vki megírni a kódot nagyon megkösszönném.
-
Delila_1
Topikgazda
A B1 cellában a megadott útvonal ilyen C:\Főkönyvtár\Alkönyvtár\AlAlkönyvtár\ legyen. Ne maradjon le a végéről a "\".
Sub SokPld()
Dim lap%, ment As String
Application.ScreenUpdating = False
For lap% = 1 To 100
Sheets(lap%).Select
ment = Cells(2) & Cells(1) & ".xls"
Sheets(lap%).Copy
ActiveWorkbook.SaveAs Filename:=ment, FileFormat:=xlNormal _
, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
CreateBackup:=False
ActiveWindow.Close
Next
Application.ScreenUpdating = True
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.
-
jerry311
nagyúr
Egy oszlopot szeretnék feltölteni egy cellatartományból véletlenszerűen választott szöveggel.
Ezt lehet? Hogyan? -
m.zmrzlina
senior tag
válasz jerry311 #11849 üzenetére
Excel2007-et feltételezve ( a Randbetween() ) miatt, az A1:A20 tartományt tölti fel a B1:L20 tartományból véletlenszerűen vett adatokkal:
Sub veletlen()
Cells(1, 1).Select
For i = 1 To 20
Cells(i, 1).Value = Cells(WorksheetFunction.RandBetween(1, 20), WorksheetFunction.RandBetween(2, 12)).Value
Next
End Sub[ Szerkesztve ]
Új hozzászólás Aktív témák
- Milyen légkondit a lakásba?
- Luck Dragon: Asszociációs játék. :)
- Visszavonta az Intel és a Qualcomm Huawei-hez kiadott exportlicencét az USA
- Android alkalmazások - szoftver kibeszélő topik
- Ukrajnai háború
- Videós, mozgóképes topik
- WLAN, WiFi, vezeték nélküli hálózat
- Vezetékes FEJhallgatók
- Jobb zoom, egyszerűbb kijelző - megérkezett a Sony Xperia 1 VI
- Még több AI-t hozna a Windowsba a Microsoft
- További aktív témák...
Állásajánlatok
Cég: Ozeki Kft.
Város: Debrecen
Cég: Promenade Publishing House Kft.
Város: Budapest