- Okosóra és okoskiegészítő topik
- Digitális detox a Nokiától
- Vodafone mobilszolgáltatások
- Itt az első kép a 2024-es Nokia 3210-ről
- DIGI Mobil
- Milyen okostelefont vegyek?
- OnePlus 7 - magabiztos folytatás
- Redmi Note 10 Pro - majdnem minden stimmel
- Xiaomi 13T és 13T Pro - nincs tétlenkedés
- Samsung Galaxy S23 és S23+ - ami belül van, az számít igazán
Hirdetés
-
Ilyen lesz az Astor: Blade of the Monolith
gp A C2 Game Studio nemrég átnevezett játéka a tervek szerint jövő hónap végén debütál.
-
Lenovo Essential Wireless Combo
lo Lehet-e egy billentyűzet karcsú, elegáns és különleges? A Lenovo bebizonyította, hogy igen, de bosszantó is :)
-
Piacvezető tandem OLED panellel érkezik az iPad Pro
ma Sokat kellett várni az első OLED képernyős Apple táblagépre, állítólag megérte.
-
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
-
Kobe
veterán
sziasztok
VBA-val kapcsoaltban kellene kis help
Egy makroval szeretnek megnyitni egy filet - ez egy SAP-bol letoltott sima local file, text tab delimited ("Text with columns" formatum, ha ez tobbet mond).
Olyan modon szeretnem megnyitni, hogy a user tallozza ki magat a nyersfilet a sajatgeperol (tehat nem en adom meg az eleresi utvonalat), azonban egy kicsit bajban vagyok a formatumokkal.A tallozas resze megy is, de a kod nem kepes a text tab delimited filet megnyitni, hiaba jatszottam a formatumokkal / filetipusokka, minding type mismatch hibara fut az If feltetelnel:Sub FormatRawDownload()
Dim strFileToOpen As String
MsgBox "Please select the downloaded raw report to open"
strFileToOpen = Application.GetOpenFilename _
(Title:="Please select the downloaded raw report to open", _
FileFilter:="Excel Files *.xls* (*.xls*),")
'FileFilter:="Text Files *.txt* (*.txt*),")
If strFileToOpen = False Then
MsgBox "No file selected.", vbExclamation, "Sorry!"
Exit Sub
Else
Workbooks.Open Filename:=strFileToOpen
End If
End Submit kellene hegeszteni rajta ?
[ Szerkesztve ]
-
fess
őstag
sziasztok
Azt meg lehet valahogy oldani, hogyha az egyik sheet-en beállítom, hogy melyik oszlop milyen színű legyen akkor automatikusan az összes sheet-en olyan színűek legyenek az oszlopok? -
Fferi50
őstag
válasz the radish #28799 üzenetére
Szia!
Mégis az Application.Wait lett a nyerő.
A UserForm1 tartalmaz egy Label1 cimkét - itt fut az idő visszafelé, Commandbutton1 parancsgomb a művelet végrehajtására, Commandbutton2 parancsgomb a megszakításra.
A UserForm1 kódlapja így néz ki:
Option Explicit
Dim xx As Integer
Sub mutato()
UserForm1.Show False
For xx = 11 To 0 Step -1
UserForm1.Label1.Caption = xx
Application.Wait Now + TimeSerial(0, 0, 1)
DoEvents 'figyeli, hogy volt-e gombnyomás, ha igen, végrehajtja
Next
If xx = -1 Then UserForm1.CommandButton1_Click ' ha lefutott az idő, végrehajtjuk a műveletet, ha már megvolt, nem történt semmi
End Sub
Public Sub CommandButton1_Click()
MsgBox "Kilépek"
xx = -2
Me.Hide
End Sub
Private Sub CommandButton2_Click()
MsgBox "Cancel"
xx = -2
Me.Hide
End Sub
Private Sub UserForm_Terminate()
xx = -2
End SubHa kérdésed lenne, kérlek írj!
Üdv.
-
the radish
senior tag
válasz the radish #28805 üzenetére
Jaj, bocs. Működik. Az indítással volt probléma, nem olvastam az utolsó hozzászólásodat.
Nagyon köszönöm!
[ Szerkesztve ]
-
spe88
senior tag
Már egyszer azt hiszem kérdeztem, de nem nagyon jön össze az INDIREKT fv-nyel próbálkoztam...
Szóval van egy cella (a1), ami hiperhivatkozik egy másik fájlra!
Ebből a fájlból mondjuk a C3 értékét ki akarom másolni az eredeti fájl A2 cellába!mivel tehetem ezt meg?
köszönöm
Spóroljunk! Kerül, amibe kerül!
-
spe88
senior tag
Sziasztok,
Gyakorlatilag a hivatkozás címét szeretném kinyerni! Ahogy nézem ez nem működik csak saját függvénnyel, de nem tudom működésre bírni!
pl. van egy hiperhivatkozás a neve: Google, amire mutat (http://google.com)
és akkor dobja ki a http://google.com - ot a cellába!
Mivel az adott hivatkozott fájlból akarom kinyerni az adatokat!
köszi
Spóroljunk! Kerül, amibe kerül!
-
spe88
senior tag
Megvan:
[/Option Explicit
Function HyperLinkText(rg As Range)
Dim sFormula As String, S As String
Dim L As Long
Dim H As Hyperlink, HS As Hyperlinks
sFormula = rg.Formula
L = InStr(1, sFormula, "HYPERLINK(""", vbBinaryCompare)
If L > 0 Then
S = Mid(sFormula, L + 11)
S = Left(S, InStr(S, """") - 1)
Else
Set HS = rg.Worksheet.Hyperlinks
For Each H In HS
If H.Range = rg Then
S = H.Address
End If
Next H
End If
HyperLinkText = S
End FunctionM]Spóroljunk! Kerül, amibe kerül!
-
kacsaesokos
tag
Sziasztok!
Diagram készítésénél akadtam el, egyszerűen nem jövök rá a megoldásra.
Csatolok képet is kép, bal oldalt látható, hogy kéne kinéznie, jobb oldalon amit "alkottam".
A problémám, hogy az X tengelyen, nálam nem a kívánt 3 értéket (0,15; 0,22; 0,34) skálázza hanem 0,5 egységenként. Tengely formázásánál nem jártam sikerrel, kezdem úgy gondolni, hogy talán már az adatok kijelölésénél kellene valamit másképp csinálni.
köszi[ Szerkesztve ]
-
Kobe
veterán
sziasztok
van egy tablazatom, amiben az adatok kb igy neznek ki, az elso oszlopban ugyanilyen sorrendben szerepelnek
Buda
E1
E2
E3
E4
...
E128
Pest
E1
E2
E3
...
E48
Erd
E1
E2
E3
...
E12Azt szeretnem megcsinalni, hogy a B oszlopot toltse fel a Buda, Pest ill Erd szavakkal, nyilvan azoknal a teteleknel ahol Buda alatt szerepelt, ott Buda, utana valtson at Pestre es amig az erdi tetelek listaja nem jon Pestet, utana erdet irjon ki
ezt milyen formulaval tudnam megtenni ?
Legjobb lenne vmi VBA-s nyelvezetben megragadni igazabol
koszi
-
Delila_1
Topikgazda
Gyalogosan, nem makróval a B1 cella legyen Buda.
B2-től másolhatod a képletet: =HA(BAL(A2;1)<>"E";A2;B1)
Ez csak akkor fut hibára, ha van E-vel kezdődő helységneved. Ha van, akkor valami mást próbálok.
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
Kobe
veterán
-
Delila_1
Topikgazda
Címsort feltételezve
Sub Keplet()
Dim usor As Long
usor = Range("A" & Rows.Count).End(xlUp).Row
Range("B2") = Range("A2")
Range("B3:B" & usor) = "=IF(LEFT(A3,2)=""E1"",B2,A3)"
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
-
poffsoft
addikt
válasz Delila_1 #28820 üzenetére
nem jó, az volt az első próba.
osztályváltáskor kell színt váltania a színezésnek, és lehet olyan osztály, aminek 0 eleme van.
azt kellene minden cellánál megnézni, hogy hányadik olyan osztályban van, ami nem nulla, és ezt már lehene páros-páratlan figyeléssel színhez kötni.[ Szerkesztve ]
[ Szerkesztve ]
-
Geri89
aktív tag
Sziasztok! Egy olyan excel makrora lenne szükségem, ami A1 cellától H16-ig terjedő tartományt formázottan kimásolja, majd elkezd egy emailt írni outlookba (címzett és tárgy kitöltéssel), és a levél szövegébe szövegesen beilleszti a másolt adatokat.
Viszont ha lehet, akkor ne küldje el magától, hanem nekem keljen rámenni a küldés gombra már az outlookban. Ez megoldható? Előre is köszi!
[ Szerkesztve ]
-
Geri89
aktív tag
válasz Geri89 #28822 üzenetére
A szerkesztési időm lejárt.. ennek a segítségével megoldottam a problémám nagy részét, viszont így az emailt magától elküldi. Az nem megoldható valahogyan, hogy "csak" áttegye az Outlook-ba, és ott nekem kelljen a küldés gombra kattintani? Úgy biztosabbnak érezném, hogy valóban elküldi az üzenetet.. mert így nincs visszajelzés (csak az elküldöttek közt lehet megnézni)
-
Geri89
aktív tag
válasz szatocs1981 #28824 üzenetére
Köszönöm! Valóban.. nem igazán értek a makrokhoz
-
ueva
csendes tag
Sziasztok!
Excel 2010-es verziót használom. Az információs függvények között található egy S fv., amelyre nagy szükségem lenne. (A nem számértéket számmá, a dátumot dátumértékké alakítja, az IGAZ értékből 1, bármi egyébből 0 lesz.)
Az én Excelemben egyáltalán nem működik ez a függvény. Pedig 2010-esben működnie kellene. Bármilyen értéket adok meg, felugrik a "A beírt képlet hibás...." ablak.
A súgóban megadott példákra sem működik.
Tudnátok ebben segíteni? (Azt hiszem ezzel sikerülne a feltételes formázásos feladatomat megoldani.)Köszönöm!
-
Kobe
veterán
sziasztok
ujfent 2 vba-s kerdes
az egyik: van egy oszlopom, amiben 2 fajta ertek van (Szoveg1, Szoveg2). A mellette levo oszlopba szeretnek egy if fuggvennyel beirni egy erteket, ha pl D2 = Szoveg1 akkor E2=1, ha D2=Szoveg2, akkor E2=2
megcsinaltam VBA-val, de valamiert Type mismatch hibara fut
last = Cells.Find(what:="*", searchorder:=xlByRows, searchdirection:=xlPrevious).Row
For i = 2 To last
If Range("D2:D" & last) = "EDE" Then Range("E2:E" & last) = "2" Else Range("E2:E" & last) = "1"
Next iitt mi lehet a problem? Type mismatch valoszinu valami formatum nemegyezosegbol johet, ezert egy masik paranccsal probaltam elotte a D oszlop tartalmat szovegge formazni
Range("D2:D" & j).NumberFormat = "@"
de igy sem mukodott. Tipp, hogy mi lehet meg ?
illetve a nagyobb lelegzetvetelu dolog. Amennyiben megvan a kesz, formazott tablazatom, egy masik worksheeten van egy urlapom
Azt szeretnem, ha a makro a tablazat midnen soraval feltoltene az urlapot, es elmentene egy kulon tabra.Szoval ha van 10 db sorom a tablazatban, akkor 10 tabon kulon letrehozna 1-1 urlapot neki, es a tablaban adott sorban tarolt adatokkal kitoltene.
Pl 1es sor, elso urlap feltoltve, 2es sor masodik tab urlapja, stb
erre valakinek otlete ?
-
Kobe
veterán
válasz szatocs1981 #28830 üzenetére
Elfelejtettem bekopizni, benne van az a sor is....de ettol a type mismatch fennall.
Delila: mukodik, koszi....kicsit kezdek mar belegajdulni, kiszurhattam volna a hulyeseget
[ Szerkesztve ]
-
Fferi50
őstag
válasz Lacikaaaa #28826 üzenetére
Szia!
Mihez képest kell nézni a 3 ill. a 4 és több napot. Valahol egy cellában rögzítve van ez a "referencia dátum", mert ha nincs, akkor sem Te sem a rendszer nem fogja ám kitalálni (gondolom ez a rögzítés dátuma lenne).
Ha van ilyen cella, akkor 2 feltételes formázással megoldható a dolog - formázás képlet alapján, a képlet pedig: ma - referencia dátum >2 kitöltés sárga ez az egyik
ma - referencia dátum >=4 kitöltés sárga ez a másikÜdv.
-
desert_camo
tag
Sziasztok!
Van-e valami megoldás arra, hogy egy cellában lévő szót kiegészítsek 1-1 karakterrel? Például "abc" betűkből "*abc*" legyen. Nagyon sok esetben kellene elvégezni ezt a két csillag beszúrást A helyette függvényen gondolkoztam, de a csereszó csak konkrét érték lehet..
desert_camo
-
desert_camo
tag
-
boboy79
csendes újonc
Sziaszok.
Az lenne a kérdésem hogy excel táblázat A1 cellába beirom pl:2600 a B1 cellába ez irom: A1-2700 tehát szeretnék kivonni belöle de azt szeretném hogy ha negativ akkor ne jelenjen meg benne semmi csak ha pozitiv ezt szeretném a B oszlopra érvényesiteni remélem ki tudjátok bogozni.
-
Kobe
veterán
sziasztok
ujfent egy kis vba-s help kene. Egy reszet mar megoldottam.
Van egy workbookom, amiben a Sheet1 en vannak az alapadatok egy tablazat formajaban. Pl 10 oszlop, headerrel ellatva, valtozo szamu sorral.
Van egy alap templatem is a fileban. A makro ezt az alap templatet lekopizza ahanyszor, ahany sor Sheet1 en van.
Tehat van pl 12 sorom Sheet 1en, es van hozza 12db masik sheetem.
Szeretnem a makrot boviteni, hogy az alap tablambol a masodik sor tartalmat a masodik sheet megadott cellaiba tudnam masolni, a harmadik sort a harmadik sheetre, es igy tovabb ahany darab sor van.
Mivel valtozo szamu sorom lesz, ezert mindenkepp dinamizalva szeretnem (most 12, holnap lehet 15), illetve a annyi kulonbseg van az alapadat sheet es a target sheet kozott, hogy elobbiben sorokban vannak az adatok, utobbin pedig kulonbozo helyekre menne - igy szeretnem lehetoleg en megadni hogy pl az A oszlop tartalmat milyen cellaba iranyitsa at a sheeteken.
Pl Sheet1 / A2 -> Sheet2 / B3
Sheet1 / A3 -> Sheet3 / B3
Sheet1 / A4 -> Sheet4 / B3ilyen problemaval talalkozott mar valaki ? probaltam neten valami sample makrot keresni, de ilyen jellegut sehol nem talaltam sajna
-
boboy79
csendes újonc
válasz m.zmrzlina #28838 üzenetére
Nagyon szépen köszönöm
-
Fferi50
őstag
Szia!
Ha mindig ugyanoda kell másolni, akkor a makróba beírod egymás után:
Sheets("Sheet2").Range("B3").value=Sheets("Sheet1").Range("A2").value
Sheets("Sheet3").Range("B3").value=Sheets("Sheet1").Range("A3").value
Sheets("Sheet4").Range("B3").value=Sheets("Sheet1").Range("A4").value
és így tovább, minden egyes cellára.
Ha van valami szabályszerűség a másolásban, akkor ciklusba is szervezhető.(Ha nem csak az értékeket, hanem a formát is szeretnéd átvinni, akkor a fenti sorok helyett a copy metódust használhatod:
Sheets("Sheet1").Range("A2").Copy destination:=Sheets("Sheet2").Range("B3")
Sheets("Sheet1").Range("A3").Copy destination:=Sheets("Sheet3").Range("B3")
Sheets("Sheet1").Range("A4").Copy destination:=Sheets("Sheet4").Range("B3")
a másolásra.)Ha változó a másolás helye, akkor használhatod az Applicaction.inputbox metódust a cél cella bekéréséhez, ahol megadhatod, hogy milyen típusu legyen az input (8-as tipus a cella referencia). Így minden kérdéses cellánál megkérdezheted, most hova legyen másolva.
Az inputbox értékét egy változóba kérheted be:
Set myCell = Application.InputBox( prompt:="Select a cell", Type:=8)
majd ezt a változót használod célként.
Ebben az esetben az inputboxban egérrel kijelölheted melyik munkalap melyik cellájába kívánod a másolást.
Utána:
Sheets("Sheet1").Range("A4").Copy destination:=myCellRemélem, sikerülni fog valamelyik módszerrel megoldani a problémát.
Üdv.
[ Szerkesztve ]
-
Kobe
veterán
válasz Fferi50 #28843 üzenetére
Hello
A celcella minden sheeten ugyanaz. Az igazi fejtores az, hogy elore nem tudom megmondani hany sor lesz a tablaban, ebbol kifolyolag hany sheetet kell letrehozni,es hanyszor kell majd masolni - a szamozott sheetekkel ezert nem erdemes vegigzongorazni, ill nem is lehet.
Valahogy a sorok szama alapjan szeretnem dinamizalni,hogymindig annyiszor masoljon ahany sor van.Eddig for each el ill do untillal probaltam sikertelen. Biztos megoldhato csak az en skillem keves meg
[ Szerkesztve ]
-
Fferi50
őstag
Szia!
Ha a sorok száma alapján szeretnéd dinamizálni, akkor:
For each sor in Sheets("Sheet1").UsedRange.Rows
célmunkalap létrehozása/kijelölése
ide jönnek a másolási műveletek
nem ártana ellenőrizni, hogy nincs-e esetleg üres sor benne, ha van, azt nyilván ki kell hagyni a másolásból.
NextÜdv.
[ Szerkesztve ]
-
Delila_1
Topikgazda
Sub Masolas()
Dim sor As Long
sor = 2
Do While Sheets("Sheet1").Cells(sor, "A") <> ""
Sheets.Add.Name = "Sheet" & sor
ActiveSheet.Move After:=Sheets(Sheets.Count)
Sheets("Sheet1").Range("A" & sor).Copy Sheets("Sheet" & sor).Range("B3")
sor = sor + 1
Loop
End SubCímsort feltételezve az első lap 2. sorától indítottam (sor=2).
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 Fferi50 #28845 üzenetére
Ciklusban nem szoktam használni a .UsedRange.Rows-t, mert akkor minden ciklusban ki kell számolni ezt az értéket, terhelve a procit. Inkább megadom előre egy változóban.
Ízlések és pofonok...
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
gyga
senior tag
Üdv.
Excel 2013 Pénzformátum beállításakor HUF lett a Ft jelölésből, hogy tudom visszatenni Ft-ra. Nem találom a Ft jelölést a pénznem formátumok közt.A kisebbség is számíít, teszkó.
Új hozzászólás Aktív témák
- D1Rect: Nagy "hülyétkapokazapróktól" topik
- PlayStation 5
- PlayStation rajongói nyereményjáték
- Magga: PLEX: multimédia az egész lakásban
- Okosóra és okoskiegészítő topik
- Nintendo Switch
- Autós topik látogatók beszélgetős, offolós topikja
- Óra topik
- Kihívás a középkategóriában: teszten a Radeon RX 7600 XT
- Futás, futópályák
- További aktív témák...
- PC JÁTÉKOK (OLCSÓ STEAM, EA , UPLAY KULCSOK ÉS SOKMINDEN MÁS IS 100% GARANCIA )
- Eredeti Microsoft termékek - MEGA Akciók! Windows, Office Pro Plus, Project Pro, Visio Pro stb.
- Windows 10/11 Home/Pro , Office OEM/Retail kulcsok
- Steam,EA,Epic és egyébb játékok Pc-re vagy XBox!
- Játékkulcsok olcsón: Steam, Uplay, GoG, Origin, Xbox, PS stb.