Hirdetés

2024. május 2., csütörtök

Gyorskeresés

Útvonal

Fórumok  »  OS, alkalmazások  »  Microsoft Excel topic (kiemelt téma)

Téma összefoglaló

Téma összefoglaló

  • Utoljára frissítve: 2023-11-13 08:31:56

LOGOUT.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.

Összefoglaló kinyitása ▼

Hozzászólások

(#21051) Mutt válasza mexel (#21043) üzenetére


Mutt
aktív tag

Hello,

Hogyan lehetne sorba rendezni az adatokat, hogy az első oszlopban csak "a" legyen, a másodikban csak "b" stb?

Megint csak egy CSE képletet tudok adni, AA1 mezőben van a szétszabdalandó adatsorod. A1-ben ez a képleted:
=HA(SZÁM(HOL.VAN(KARAKTER(96+OSZLOP());KÖZÉP($AA1;(SOR(INDIREKT("A1:A"&(HOSSZ($AA1)+1)/2))-1)*2+1;1);0));OSZLOP();"")

Ezek után másold a képletet Z1-ig.
Az eredmény ilyen lesz:

üdv

[ Szerkesztve ]

A tanácsaimat ingyen adom. Ha nem tetszik, akkor kérlek ne kritizáld! / https://github.com/viszi/codes/tree/master/Excel

(#21052) Mutt válasza gyga (#21034) üzenetére


Mutt
aktív tag

Hello,

..cella formátumot akarok másolni akkor csak a hátteret másolja át és a feltételes formázás képletet ne!

2 lépésben tudod, egyikben formátumot másolsz a másodikkal törlőd a feltételes formázást.
Range(cél).PasteSpecial (xlPasteFormats)
Range(cél).FormatConditions.Delete

üdv

A tanácsaimat ingyen adom. Ha nem tetszik, akkor kérlek ne kritizáld! / https://github.com/viszi/codes/tree/master/Excel

(#21053) soundsthu válasza alfa20 (#21050) üzenetére


soundsthu
csendes tag

Szia,

szuper a képlet, csak közben rájöttem hogy előfordulnak olyan megnevezések, amik kettőnél több szóból állnak és azok esetében 0-t ad eredményül. :O

Az lenne a legjobb, ha elég lenne egy vagy két szót a képletbe írni, hogy aztán az ezeket tartalmazó cellákat is figyelembe vegye

Erre is létezik valamilyen formula? :)

[ Szerkesztve ]

(#21054) Delila_1 válasza soundsthu (#21053) üzenetére


Delila_1
Topikgazda

"alma" helyett a kritérium "*alma*" legyen. A csillag helyettesítő karakter, ami azt jelöli, hogy az alma szó előtti és mögötti akárhány karaktert ne vegye figyelembe a képlet. Ez számol azokkal a cellákkal, amiknek tartalma például az "alma", "almafa", "kivirágzott az almafa", stb.

Másik helyettesítő karakter a kérdőjel, ez csak 1 karaktert helyettesít. A "b?mba" kritérium megtalálja a bomba, és a bamba szó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.

(#21055) mexel


mexel
veterán

Azt hogyan tudom megoldani, hogy csak a kijelölt területen cseréljek ki valamilyen betűt számre? Pl "a" betűt 1-esre. A csere funkcióval az egéyz lapon kicseréli hiába jelölök ki egy részt.

(#21056) mexel


mexel
veterán

Sziasztok, ismét kérdésem lenne, jól elvagyok a kérdéseimmel:
Nem tudja valaki hogy a fityfenében találom az excel 2007-ben a kétmintás F-próbát?
Excel 2003-ban az volt a neve azt hiszem hogy "Kétmintás F-próba szórásnégyzetre"
Csak sima F-próbát találok és nem tudom ez ugyanaz-e. Se a neten, sehol nem találok semmit róla.

[ Szerkesztve ]

(#21057) mexel válasza mexel (#21056) üzenetére


mexel
veterán

Megvan köszönöm, telepíteni kellet. :D

(#21058) Mutt válasza mexel (#21055) üzenetére


Mutt
aktív tag

Hali,

Ha a párbeszédablakban hatókörnek Lap van beállítva és van kijelőlésed, akkor csak ott fog cserélni.

üdv

A tanácsaimat ingyen adom. Ha nem tetszik, akkor kérlek ne kritizáld! / https://github.com/viszi/codes/tree/master/Excel

(#21059) Mutt válasza mexel (#21056) üzenetére


Mutt
aktív tag

Hello,

Meg lett, de a keresőmotornak is legyen válasz.

Analysis Toolpack-ot kell engedélyezni, és utána Adatok -> Elemzés -> Data Analysis.

http://office.microsoft.com/hu-hu/excel-help/statisztikai-es-mernoki-elemzesek-az-analysis-toolpak-segitsegevel-HP010090842.aspx?CTT=1

üdv

A tanácsaimat ingyen adom. Ha nem tetszik, akkor kérlek ne kritizáld! / https://github.com/viszi/codes/tree/master/Excel

(#21060) mexel válasza Mutt (#21059) üzenetére


mexel
veterán

Köszönöm, közben ahogy feljebb írtam is meglett, valóban telepíteni kellett, csak lassan akadtam rá. A csere érdekes módon most működik, amikor próbáltam valamit elállíthattam mert nem ment.
Kösz a segítséget :R

(#21061) alfa20


alfa20
senior tag

sziasztok,

most kicsit az űrlap vezérlőkkel ismerkedem, meg az AciveX vezérlőkkel.

olyat szeretnék, hogy egy beviteli listát készítek, amiben van két választási lehetőség pl.:
1.) alma
2.) répa
ha az almát választom, akkor a B2 és B3 cella tartalma legyen "gyümölcs", ha a répát választom, akkor meg legyen "zöldség".

ezt a sima űrlap vezérlőkkel simán meg tudom oldani, hogy pl:
D2= alma
D3= répa
a beviteli lista értéke legyen a D4 cella, a B2 és B3 meg legyen egy ha függvény.

olyat lehet, hogy ActiveX vezérlővel készítem el, és én adom meg mi legyen a lista tartalma (ne cella hivatkozás), és ha kiválasztom a megfelelőt, akkor a két cella értéke ennek megfelelően változzon?

Visual Basic 2013-ban simán működik a kiíratás de itt nem fogadja el a "(I)ComboBox1.SelectedItem(/I)" parancsot:
VB2013-ban így nézki:
If ComboBox1.SelectedItem = "hello" Then
Label1.Text = "Hello idegen"
ElseIf ComboBox1.SelectedItem = "szia" Then
Label1.Text = "üdvőzletem"
End If

"Az agy olyan, mint az ejtőernyő: csak akkor működik, ha nyitott." (Thomas Dewar)

(#21062) gyga válasza alfa20 (#21061) üzenetére


gyga
senior tag

sztem egy sima ha függvény elég ide lenyílómenü a választó cellába...
1.
a legördülő listakészítése: rá állsz a kiválasztott cellára és menü-adatok-érvényesítés-lista(kiválasztani) érték tartomány pl egy új munkalapon egymás alá felviszed alma répa stb =lista!(a lista az a munkafüzet lap neve)a1:a2
2. abba a cellába amiben automatikusan változtatni szeretnéd az értéket beleírod ezt, a d2 az a cella amit figyelnie kell:
=ha(d2="alma";"gyümölcs";ha(d2="répa";"zöldség"))

[ Szerkesztve ]

A kisebbség is számíít, teszkó.

(#21063) Delila_1 válasza alfa20 (#21061) üzenetére


Delila_1
Topikgazda

A comboboxod ListFillRange tulajdonságánál megadod a címet, ahonnan betölti a két értéket:
Munka1!D2:D3

A change esemény:
Private Sub ComboBox1_Change()
If ComboBox1 = "alma" Then
Range("B2:B3") = "gyümölcs"
Else
Range("B2:B3") = "zöldség"
End If
End Sub

Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.

(#21064) alfa20 válasza Delila_1 (#21063) üzenetére


alfa20
senior tag

Köszönöm,
közben inkább kitaláltam hogy készítek egy UserForm-ot és abban a két nagy makrómat összevonom, így nem kell a külön választási lehetőség, mert az UserForm-ban tudnak majd választani, így egyszerübb lesz.Legalább is remélem :D

"Az agy olyan, mint az ejtőernyő: csak akkor működik, ha nyitott." (Thomas Dewar)

(#21065) mexel


mexel
veterán

Sziasztok! Arra van valami lehetőség, hogy egy adott részen, az üres cellákba beírjak valamit egyszerre? Pontosabban az üres részekre nullát kellene írnom, de nem szeretném egyesével megkeresni hogy hol vannak az üres részek.

Na már válaszolok is magamnak, hátha másnak is hasznos lesz:
"Kijelölöd a területet, Ctrl+g-vel behívod az Ugrás menüt, Irányított, Üres cellák. Ekkor kijelöli a területen lévő összes üres cellát. Beírod a szöveget, és Ctrl+enterrel egyszerre beviszed az összes cellába." :)

[ Szerkesztve ]

(#21066) Salex1


Salex1
senior tag

Az mitől lehet, hogy ha auto_opennel hívok meg egy makrót akkor rendben működik, de, ha ugyan azt command_button-nal teszem, akkor látszólag lefut, de nem hajtja végre a feladatát?
Egyik munkalapról a másikra kellene bizonyos adatokat átmásolni neki...

Private Sub CommandButton4_Click()
Sheets("Rendszerek").Select
' megkeresi az utolso ures cellat
FinalRow = Cells(Rows.Count, 1).End(xlUp).Row
' vegigmegy a cellakon 2_vel kezdve
For X = 2 To FinalRow
' eldönti másoljon-e a cells_x,15 cella alapján
ThisValue = Cells(X, 15).Value
If ThisValue = "1" Then
' ha az O cella 1 akkor masol
Cells(X, 3).Resize(1, 1).Copy
' munka1 lap kivalasztasa
Sheets("Munkák").Select
' a kovetkezo ures sorba irja a kivalasztott cellat
NextRow = Cells(Rows.Count, 2).End(xlUp).Row + 1
Cells(NextRow, 2).Select
Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
xlNone, SkipBlanks:=False, Transpose:=False
Sheets("Rendszerek").Select
Cells(X, 15) = "áttéve"
' a lejáratidátumot is átviszi a H oszlopba
Cells(X, 8).Resize(1, 1).Copy
Sheets("Munkák").Select
Cells(NextRow, 8).Select
Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
xlNone, SkipBlanks:=False, Transpose:=False
' G oszlopba beírja, hogy TERV
Cells(NextRow, 7).Select
ActiveCell.FormulaR1C1 = "Terv"
Sheets("Rendszerek").Select
End If
Next X
Application.CutCopyMode = False
Sheets("Munkák").Select
Selection.AutoFilter Field:=7, Criteria1:="<>kész", Operator:=xlAnd

(#21067) csongi válasza alfa20 (#21036) üzenetére


csongi
veterán

Kipróbálom. :R

Új kérdés, össze tett!
Hogyan lehet olyat csinálni, hogy mondjuk a G oszlopba összesítse a C oszlop eredményeit. Úgy hogy az ne automatikus legyen, hanem egy összesít gombra történjen meg, és ennek az oszlopnak (C) az értékeit ki lehessen nullázni. Majd a nullázás után, megint lehessen összesíteni.

Nyomtatási kép:
Hogyan lehet beállítani a nyomtatásnál, hogy csak azok kerüljenek nyomtatásra, amik a G oszlop értékeinél a nullától eltérő értéket mutat. Vagyis pl: a G12 cella értéke nulla akkor az nyomtatva legyen az F12 cellával együtt. HA a G12 értéke nulla akkor ne legyen nyomtava és az F12 cella sem.

Adott két munkafüzet. mindkét munkafüzetben vannak azonos értékű elnevezésű cellák.
Hogyan lehet ezt a két munkafüzetet összefésülni?
Ez két árlista, és egyes termék nevekhez tartozik még pár adat: Pl ár, besorolás stb.
Az irányadó a termék azonosítója. Azt szeretném ha nem kellene cellánként átnéznem és javítanom az adott azonosítókhoz tartozó változásokat, és kézzel átírni. Kb 18000 sor van :)

(#21068) bteebi


bteebi
veterán

Sziasztok!

Van egy 8×12-es tömböm a G11:R18-as tartományban. Azt szeretném, ha ezen cellák tartalmát a D sorba (D2-től lefelé) egy makró "meghivatkozná" képletként - tehát a értéke D2 az lenne, hogy "=G11", a D3-é az, hogy "=H11", a D97-é pedig az, hogy "=R18" - tehát ha bármit megváltoztatnék a tömbben, akkor az automatikusan átíródna a D oszlopban. Ezt a makrót írtam rá:

Sub masolas()
Dim i As Integer, j As Integer
For i = 1 To 12
For j = 1 To 8
If Cells(j + 10, i + 6) <> "" Then
Cells(1 + (j - 1) * 12 + i, 4).Formula = Cells(j + 10, i + 6).Formula
Else: Cells(1 + (j - 1) * 12 + i, 4).Value = ""
End If
Next j
Next i
End Sub

Alapvetően működik is, de csak az adott cella értékét írja be, nem pedig képletként hivatkozik rá. Hogy kellene átírnom? Előre is köszönöm a segítségeteket!

Cancel all my meetings. Someone is wrong on the Internet.

(#21069) alfa20


alfa20
senior tag

Sziasztok,

Van egy makróm ami magában szépen működik, de szeretném egy UserFrom-ba tenni az űrlap részét, az UserFrom kész van a működő makrót is áthelyeztem, viszont rögtön az elején el is akadtam, mert az alábbi résznél hibára fut:
Workbooks.Open Filename:=forras_allnev, UpdateLinks:=False
forras_nev = ActiveWorkbook.Name

A forras_nev nem tetszik neki, pedig az nagyon kellene, mert a fülnév minden nap változik, ez miatt viszont fontos lenne egy váltózóban tárolni a további képlet hivatkozások miatt (és persze mind a 6 táblában vannak fülnevek amiket szintén tárolni kellene)).

A makró eleje így néz ki most:
Sub xy_rnd()
Dim forras_allnev As Worksheet, keszlet_allnev As Worksheet, _
ab_allnev As Worksheet, felt_allnev As Worksheet, kert_allnev As Worksheet

forras_allnev = UserForm1.Label1.Caption
keszlet_allnev = UserForm1.Label2.Caption
ab_allnev = UserForm1.Label3.Caption
felt_allnev = UserForm1.Label4.Caption
kert_allnev = UserForm1.Label5.Caption
Unload UserForm1

Workbooks.Open Filename:=forras_allnev, UpdateLinks:=False
forras_nev = ActiveWorkbook.Name
forras_fulnev = ActiveSheet.Name

Workbooks.Open Filename:=forras_allnev
Rows("1:1").Select
Selection.Delete Shift:=xlUp
Rows("2:2").Select
Selection.Delete Shift:=xlUp
Columns("A:A").Select
Selection.Delete Shift:=xlToLeft

Range("A1:AA1").Value = Array("1", "2", "3", "4", "5", _
"6", "7", "8", "9", "10", "11", "12", "13", "14", _
"15", "16", "17", "18", "19", _
"20", "21", "22", "23", "24", "25", "26", "27")

eredetiben meg így nézett ki, ami működik is:
Sub xy_rnd()
forras_allnev = Range("c3").Value
keszlet_allnev = Range("c4").Value
ab_allnev = Range("c5").Value
felt_allnev = Range("c6").Value
kert_allnev = Range("c7").Value
aktnev = ActiveWorkbook.Name

Workbooks.Open Filename:=forras_allnev, UpdateLinks:=False
forras_nev = ActiveWorkbook.Name
forras_fulnev = ActiveSheet.Name

stb...

"Az agy olyan, mint az ejtőernyő: csak akkor működik, ha nyitott." (Thomas Dewar)

(#21070) Gabcsika


Gabcsika
tag

Halihó!

Rég jártam erre... :)
Nos. Van két diagramom, hogy tudom egy diagramban megjeleníteni őket?
Külön színe kell legyen a két függvénynek és persze ne kösse őket össze.

Köszi!

Freedom, Nature, Love & Music

(#21071) lappy válasza Gabcsika (#21070) üzenetére


lappy
őstag

pl: így

Bámulatos hol tart már a tudomány!

(#21072) Süvi


Süvi
őstag

Sziasztok!

Korábban egy prezentációban láttam, hogy volt egy olyan dia a ppt-ben, amin keresztül "át lehetett menni Excel-be". Az előadó nem nyitotta meg külön az Excel-t, hanem a dia egy adott részén jött be és lehetett benne mozogni is, be lehetett mutatni a teljes számítást.
Tudja esetleg valaki, hogyan lehet ezt?

Köszönöm

(#21073) Delila_1 válasza alfa20 (#21069) üzenetére


Delila_1
Topikgazda

Gondolom, a label nem tartalmazza a kiterjesztést.

A makró további részét egyszerűsítheted. A select utasítások nem szükségesek, és lassítják a futást.

Dim oszlop As Long
Rows("1:2").Delete shift:=xlUp
Rows("1:1").NumberFormat = "@"
For oszlop = 1 To 27: Cells(1, oszlop) = oszlop & "": Next

Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.

(#21074) dellfanboy válasza Delila_1 (#20729) üzenetére


dellfanboy
senior tag

az normális, hogy a makró csak akkor működik ha meg van nyitva a personal.xlsb?
ha bezárom nem szuperál...

eladó dolgok:mondd az árát és vidd http://hardverapro.hu/tag/dellfanboy#aprohirdetesei

(#21075) Delila_1 válasza dellfanboy (#21074) üzenetére


Delila_1
Topikgazda

Mivel a makrót a personalba tetted, igen, normális. No de miért zárod be a personalt? :U

Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.

(#21076) Delila_1 válasza bteebi (#21068) üzenetére


Delila_1
Topikgazda

Sub nn()
Dim sor As Integer, CV As Object

sor = 2
For Each CV In Range("G11:R18")
Range("D" & sor).Formula = "=" & CV.Address
sor = sor + 1
Next
End Sub

Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.

(#21077) dellfanboy válasza Delila_1 (#21075) üzenetére


dellfanboy
senior tag

csak zavar, hogy nyitva van még egy xls...
de akkor úgy kérdezem, ahhoz, hogy a makró működjün szükséges hogy nyitva legyen. ugye?

eladó dolgok:mondd az árát és vidd http://hardverapro.hu/tag/dellfanboy#aprohirdetesei

(#21078) Delila_1 válasza dellfanboy (#21077) üzenetére


Delila_1
Topikgazda

Nyitva kell lennie. Az Excelből nem is látod, mert rejtett füzetként jelenik meg, csakis a VBE-ben látszik.

Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.

(#21079) Salex1 válasza Salex1 (#21066) üzenetére


Salex1
senior tag

Delila! Erre esetleg tudnál valamit mondani? Előre is köszi!

(#21080) Delila_1 válasza Salex1 (#21066) üzenetére


Delila_1
Topikgazda

Úgy látom, túlbonyolítottad, és elég rosszul látszik a makró. Ha a bemásolás után kijelölöd a szöveget, majd a Programkód gombra kattintasz, látható lesz, és a tagolások sem tűnnek el, átláthatóbb lesz, jobban lehet értelmezni.

Nagyjából azt vettem ki, hogy a Rendszerek lapról azoknak a soroknak bizonyos értékeit kell átmásolnod a Munkák lap első üres sorába, ahol az O oszlopban 1-es érték van. Ezután az O oszlop kérdéses sorába "Áttéve" szöveget íratsz, a G-be "Terv"-et.

Add meg, melyik oszlopok értékeit kell másolni a Munkák lap melyik oszlopaiba (pl. a H-t a H-ba).

Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.

(#21081) bandus


bandus
veterán

sziasztok!

van ötletetek, hogy ha több sort akarok kijelölni, akkor az alábbi egyszerű kódra miért kapok type mismatch hibát?

Rows("i+1:i+23").Select
Selection.Delete

köszönöm!

"a jövötsajnos nemlehet tudni csakhamárotvagy deakormegmár azajelen"

(#21082) Delila_1 válasza bandus (#21081) üzenetére


Delila_1
Topikgazda

Rows(i + 1 & ":" & i + 23).Delete

Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.

(#21083) bandus válasza Delila_1 (#21082) üzenetére


bandus
veterán

valóban, köszönöm a hiányosságom pótlását :)

"a jövötsajnos nemlehet tudni csakhamárotvagy deakormegmár azajelen"

(#21084) Salex1 válasza Delila_1 (#21080) üzenetére


Salex1
senior tag

Rendszerek C oszlopát kell a Munkák B oszlopba, illetve a H-t a H-ba.
De a lényeg, hogy a munkafüzet megnyitásánál az auto_open makróban rendesen lefut, hiba nélkül, viszont, egy command_button-hoz rendelve, ugyanazon szöveg átmásolva már nem. Nem okoz hibát, de nem is végzi el a feladatát.

Sheets("Rendszerek").Select
' megkeresi az utolso ures cellat
FinalRow = Cells(Rows.Count, 1).End(xlUp).Row
' vegigmegy a cellakon 2_vel kezdve
For X = 2 To FinalRow
' eldönti másoljon-e a cells_x,15 cella alapján
ThisValue = Cells(X, 15).Value
If ThisValue = "1" Then
' ha a 15 azaz O cella 1 akkor masol
Cells(X, 3).Resize(1, 1).Copy
' munka1 lap kivalasztasa
Sheets("Munkák").Select
' a kovetkezo ures sor 2 azaz B oszlopaba irja a kivalasztott cellat
NextRow = Cells(Rows.Count, 2).End(xlUp).Row + 1
Cells(NextRow, 2).Select
Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
xlNone, SkipBlanks:=False, Transpose:=False
Sheets("Rendszerek").Select
Cells(X, 15) = "áttéve"
' a lejáratidátumot is átviszi a 8.(H) oszlopba
Cells(X, 8).Resize(1, 1).Copy
Sheets("Munkák").Select
Cells(NextRow, 8).Select
Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
xlNone, SkipBlanks:=False, Transpose:=False
' 7. oszlopba beírja, hogy TERV
Cells(NextRow, 7).Select
ActiveCell.FormulaR1C1 = "Terv"
Sheets("Rendszerek").Select
End If
Next X
' kijelölés megszüntetése
Application.CutCopyMode = False

Sheets("Munkák").Select
Selection.AutoFilter Field:=7, Criteria1:="<>kész", Operator:=xlAnd

Szerk: Jut eszembe, lehetséges valahogy a command_buttonnal meghívni az auto_open makrót?

[ Szerkesztve ]

(#21085) mexel


mexel
veterán

Egyolyan kérdésem lenne, hogy kaptam varianciaanalízisre egy ilyen számot az excelben: 4,1458E-101
Ezt hogy értelmezzem? Ez mínusz szám? Pontosabban a cellában ennyi látszik: 4,1E-101.

[ Szerkesztve ]

(#21086) mexel


mexel
veterán

Ja, megvan. Ez 0,000 itt 101 nulla van és akkor jön az érték.

[ Szerkesztve ]

(#21087) csongi


csongi
veterán

Sziasztok.
Adott két munkafüzet. mindkét munkafüzetben vannak azonos értékű elnevezésű cellák.
Hogyan lehet ezt a két munkafüzetet összefésülni?
Ez két árlista, és egyes termék nevekhez tartozik még pár adat: Pl ár, besorolás stb.
Az irányadó a termék azonosítója. Azt szeretném ha nem kellene cellánként átnéznem és javítanom az adott azonosítókhoz tartozó változásokat, és kézzel átírni. Kb 18000 sor van :)

(#21088) Delila_1 válasza Salex1 (#21084) üzenetére


Delila_1
Topikgazda

Igen, a gomb click eseményébe csak ennyit kell írnod: auto_open.
A lenti makró működik gombról.

Sub masol()
Dim sor As Long, usorR As Long, usorM As Long
Dim WSR As Worksheet, WSM As Worksheet

Set WSR = Sheets("Rendszerek")
Set WSM = Sheets("Munkák")

usorR = WSR.Range("A" & Rows.Count).End(xlUp).Row
usorM = WSM.Range("B" & Rows.Count).End(xlUp).Row + 1

For sor = 2 To usorR
If WSR.Cells(sor, "O") = 1 Then
WSM.Cells(usorM, "B") = WSR.Cells(sor, "C").Value
WSM.Cells(usorM, "H") = WSR.Cells(sor, "H").Value
WSM.Cells(usorM, "G") = "Terv"
WSR.Cells(sor, "O") = "áttéve"
usorM = usorM + 1
End If
Next

WSM.Range("A1").AutoFilter Field:=7, Criteria1:="<>kész"
End Sub

Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.

(#21089) Delila_1 válasza bandus (#21083) üzenetére


Delila_1
Topikgazda

Nincs mit. :)

Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.

(#21090) Delila_1 válasza mexel (#21086) üzenetére


Delila_1
Topikgazda

4,1 × 10 a -101-en.

Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.

(#21091) Delila_1 válasza csongi (#21087) üzenetére


Delila_1
Topikgazda

Az aktuális füzetedben – amelyikben futtatod – a nevek végére ír egy alsó kötjelet.

Sub nevadas()
Dim x As Integer
For x = 1 To Names.Count
Names(x).Name = Names(x).Name & "_"
Next
End Sub

Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.

(#21092) Salex1 válasza Delila_1 (#21088) üzenetére


Salex1
senior tag

Köszi!

(#21093) Delila_1 válasza Salex1 (#21092) üzenetére


Delila_1
Topikgazda

Már ki is próbáltad?

Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.

(#21094) Gabcsika válasza lappy (#21071) üzenetére


Gabcsika
tag

Köszönöm! :)

Freedom, Nature, Love & Music

(#21095) csongi válasza Delila_1 (#21091) üzenetére


csongi
veterán

Köszönöm!
Ez már makró igaz?
Nem estem neki, kerestem egy hozzá értők :)
Köszönöm!

(#21096) Delila_1 válasza csongi (#21095) üzenetére


Delila_1
Topikgazda

Igen, makró, hogy ne kelljen egyenként átírnod a neveket.

Szívesen.

Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.

(#21097) bteebi válasza Delila_1 (#21076) üzenetére


bteebi
veterán

Nagyon köszönöm! :) Huhh, hát ez egy kicsit elegánsabb és egyszerűbb, mint az enyém :DDD :B. Valamiért egyébként azt csinálja, hogy bár beírja az adott cellákba a képletet (tehát pl. =$G$11), de nem az ehhez tartozó érték jelenik meg, hanem a képletet írja ki. Ez vajon mitől lehet? Excel bug?

Cancel all my meetings. Someone is wrong on the Internet.

(#21098) Delila_1 válasza bteebi (#21097) üzenetére


Delila_1
Topikgazda

A celláid, ahova beír, szöveg formátumúak. :DD

Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.

(#21099) bteebi válasza Delila_1 (#21098) üzenetére


bteebi
veterán

Basszus, összességében már vagy 15 éve dolgozom Excellel, de ezt nem tudtam :B (amúgy nem én állítottam arra, ezt más táblázatában készítettem). Szerintem egyébként a következetességében van egy kis anomália, legalábbis az én értelmezésemben. Ha már egyszer bevette a képleteket, akkor állíthatom bármire a formátumot (akár szövegre is), akkor is a képlet értékét fogja kijelezni, fordítva viszont nem.

Számomra úgy lenne logikus, hogyha visszaállítom szöveg formátumúra, akkor a cella tartalmát, és ne a képlet (hivatkozás) értékét jelezze ki. Azon persze lehet vitatkozni, hogy jobb lenne-e úgy; valószínűleg nem, de nekem logikusabb lenne. Már csak amiatt se gondoltam volna, hogy a cellaformátum miatt van ez a probléma, mert ez így egy aszimmetrikus reláció (cellaformátum - képlet), az meg nem jó :).

Cancel all my meetings. Someone is wrong on the Internet.

(#21100) Delila_1 válasza bteebi (#21099) üzenetére


Delila_1
Topikgazda

Én sem értek mindig egyet a cellaformátumoknál az Excel alkotóival, de ők a fejlesztők, én meg csak felhasználó vagyok. :(

Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.

Útvonal

Fórumok  »  OS, alkalmazások  »  Microsoft Excel topic (kiemelt téma)
Copyright © 2000-2024 PROHARDVER Informatikai Kft.