Egy üres füzetben modulba másold be a makrót.

Sub Szetcincalas()
Dim sor As Long, usor As Long
Dim WSF As Worksheet, WSS As Worksheet
Const utvonal = "D:\Tmp\" 'ide jön a saját útvonalad

On Error Resume Next
Workbooks.Open Filename:=utvonal & "Forrás.xlsx"
On Error GoTo 0

On Error Resume Next
Workbooks.Open Filename:=utvonal & "Sablon.xlsb"
On Error GoTo 0

Set WSF = Workbooks("Forrás.xlsx").Sheets(1) 'saját füzeted és lapod neve
Set WSS = Workbooks("Sablon.xlsb").Sheets(1) 'saját füzeted és lapod neve

usor = WSF.Range("F" & Rows.Count).End(xlUp).Row

WSS.Activate
For sor = 2 To usor
Cells(1, "C") = WSF.Cells(sor, "F")
Cells(2, "C") = WSF.Cells(sor, "G")
Cells(3, "C") = WSF.Cells(sor, "L")
Cells(4, "C") = WSF.Cells(sor, "H")

ActiveWorkbook.SaveAs Filename:=utvonal & Range("C3") & ".xlsx", _
FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False
Next

MsgBox "Kész"
End Sub

Írd át a 3 jelzett sorban az útvonalat, a fájlneveket, és hogy hányadik lapon vannak az adatok a forrás és a sablon füzetekben. Adj rá mentést, Makrós.xlsm-ként.

A makró megnyitja a sablon és forrás fájlokat, elvégzi a másolást, menti az aktuális C3 néven a fájlt.

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

sziasztok

létezik olyan vba megoldás vagy sima függvény, amely fogja A1 értékét, amely legyen 123, és megnézi hogy a mondjuk B1 első három karaktere tartalmazza-e az 123-at és ha mondjuk nem, hamisan jön vissza?

                          hey friend listen, i know the world is scary right now but its gonna get way worse

Pár függvény kombinálásával egyszerűen megoldható:

[link]

http://logout.hu/cikk/mi_is_az_a_htpc/teljes.html; Három emeleten át egy teljes liftrapszódiát játszik!

Kicsit módosítva, egész addig jó, amíg az A1 cellában kevesebb vagy egyező számjegyű a keresett érték, mint a B1 cellában lévő.

[link]

http://logout.hu/cikk/mi_is_az_a_htpc/teljes.html; Három emeleten át egy teljes liftrapszódiát játszik!

szia!

szerintem jó lesz ez, köszönöm! : )) az utóbbi általad írt feltétel nem jön elő asszem. holnap reggel meg is nézem, hogyan muzsikál. mondjuk annyi félelmem van, hogy szerintem megint több feltételt akarnak egy cellába belezsúfolni a megrendelők, szóval könnyen lehet valami segédtáblába kell legyártanom a történetet..

                          hey friend listen, i know the world is scary right now but its gonna get way worse

Szia!

Bocs, de ehhez nincs szükség a HA függvényre, maga a
=Érték(Bal(B1;Hossz(A1)))=A1 kifejezés igaz vagy hamis értéket vesz fel,
teljesen megfelel a követelménynek.

Üdv.

Sziasztok!

Van egy problémám amit szeretnék megoldni de nem igazán tudom hogyan kellene.
Nem vagyok egy nagyon nagy excel felhasználó, de megpróbálom konyha nyelven megfogalmazni és körülírni mit szeretnék.

Adott egy iktatásra szolgáló táblázat, ennek minden sorában van egy-egy cella aminek az érték alapján szeretném annak a teljes sornak a tartalmát átmásolni(megjeleníteni) egy másik munkalapra automatikusan. Tehát az alap iktató táblázatba bekerül egy adatsor és amikor az utolsó adat bekerül ami alapján szortíroznék a teljes sor átkerül egy új munkafüzetbe. Külön jó lenne ha az alap iktató táblázatban a sort utólag módosítom, akkor az esetleg lemódosuljon a szétszortírozott munkalapon is, de ha ez nem megoldható akkor nem halunk bele.

A cél az hogy "A munkatárs" beiktat, és "B munkatárs" a szortírozott munkafüzetekből dolgozik tovább az adatokkal, de "A munkatárs" a szortírozást és "B munkatárs" munkáját nem tudja megcsinálni

Ha az emberi agy elég egyszerű lenne ahhoz, hogy megértsük, akkor egyszerűségünkben erre már nem lehetnénk képesek. -- http://smogus.deviantart.com/ --

köszönöm szépen, DE

megnyitni nem nyitja meg, nyitva kell lennie, hogy menjen
a mentés részénél error 1004-el megáll, mondván, hogy method 'SaveAs' of object '_Workbook' failed
és debugnál ezt sárgítja:

ActiveWorkbook.SaveAs Filename:=utvonal & Range("C3") & ".xlsx", _
FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False

Illusztrálok, tehát vagyok

Az Excel beállításainál, a bővítményeknél jelöld be az Analysis ToolPak, és az Analysis ToolPak - VBA bővítményeket. Valószínűleg ezek hiányoznak a hiba nélküli futáshoz.

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

róland & Fferi50

nagyon klassz a függvény, kiváló : ) ott viszont nekem felteszi a kezeit, amikor azt mondom neki, hogy jobb oldalt is vizsgálja meg, de ott csak kettőt vessen össze. az J2 cella kettő értéket az F2 cella utolsó kettő értékével. nem tudom mi felett siklik el a szemem...

=HA(ÉRTÉK(JOBB(F2;2))=J2;IGAZ;HAMIS)

illetve középen tudna vizsgálni a függvény? tehát mondjuk az F2 tíz karakter közül a 6. és 7-et vesse össze egy másik cella kettő értékével.

                          hey friend listen, i know the world is scary right now but its gonna get way worse

Sziasztok!

Van egy olyan megoldásom, hogy copy paste-nél csak az értéket másolja be az adott cellába. Ezt gondolom nem kell tovább magyarázni, így néz ki:

Private Sub Workbook_SheetChange(ByVal sh As Object, ByVal target As Range)
Dim regiertek
Dim change_data As String

If sh.CodeName = "Munka7" Or sh.CodeName = "Munka10" Or sh.CodeName = "Munka8" Then
Debug.Print sh.Name
Stop
Exit Sub
Else
regiertek = target.Value
Application.EnableEvents = False
Application.Undo
target.Cells.NumberFormat = "@"
If Application.CutCopyMode <> False Then
target.PasteSpecial Paste:=xlPasteValues
Application.CutCopyMode = False
Else
target.Value = regiertek
End If
End If
Application.EnableEvents = True
Exit Sub
End Sub

Ebbe szeretnék beoperálni egy olyan megoldást, hogy a másolt értékből csak a numerikus karakterek legyenek beillesztve.

A nem numerikus karakterek eltávolítására is van megoldás:

Sub RemoveNotNum()
Dim rng_cl As Range
Dim Workrng_cl As Range
Dim xOut As String
Dim i As Integer
Dim xTemp As String
Dim xstr As String

'On Error Resume Next
Set Workrng_cl = Selection
For Each rng_cl In Workrng_cl
xOut = ""
For i = 1 To Len(rng_cl.Value)
xTemp = Mid(rng_cl.Value, i, 1)
If xTemp Like "[0-9]" Then
xstr = xTemp
Else
xstr = ""
End If
xOut = xOut & xstr
Next i
rng_cl.Value = xOut
Next
End Sub

Viszont nekem a kettő kombinációjára lenne szükségem, konkrétan ha mondjuk dátumot másolok át egy másik munkafüzetből, akkor törölje ki a dátum elválasztókat és csak a számot hagyja bent a cellában.

Valakinek valami ötlet?

Köszi.
P.

Sziasztok!

Szeretnék 2 egyszerű dologra segítséget kérni (legalábbis számotokra egyszerű ).

1. Ahol az táblázatban dátum van, ott dátumválasztó legyen.
2. Ahol a lejárat van, akkor változzon más színűre amikor lejár. Akárhogyan próbálom a feltételes formázásnál, sehogy sem sikerül...

[link]

Előre is köszönöm!

Megbízható és olcsó tárhely: https://cweb.hu/ugyfeladmin/aff.php?aff=99

Itt van a képlet. Ha üres a mező akkor ne történjen semmi. Ha a dátum kisebb (régebbi) a mai napnál akkor a Format-ban tudod megadni a betűk/mező színét stb..

[ Szerkesztve ]

Sziasztok!
Nem boldogulok bizonyos megjelenítéssel/formázással:

="szöveg "&F34&" szöveg" itt az F34-es mező tartalmát szeretném =123.456,00 formában megjeleníteni, de nem sikerül

Itt ="za "&YEAR(NOW())&" godinu, "&"na dan "&TEXT(NOW();"dd.mm.yyyy")
viszont az eredmény amit kapok za 2016 godinu, na dan dd.27.yyyy a 27 az aktuális dátum napja.

köszönöm a segítséget

[ Szerkesztve ]

Szia!

Az elsőhöz: F34 helyett SZÖVEG(F34;"# ##0,00")

A másodiknál feltételezem, hogy angol excelt, de magyar területi és nyelvi beállításokkal használsz.
Ebben az esetben annyit csinálj, hogy a "dd.mm.yyyy" helyett "nn.hh.éééé" legyen.

üdv
P.

köszi

Szívesen!

sziasztok!

Segítség kellene faanyag vásárláshoz, ehhez hívnám segítségül az excelt
Jelen esetben csak a hosszúságalapján kell számolni.
Adott 3 hosszúságú deszka: 4,5 / 4,8 / 5,1m
És szükségem van 14db más más méretű deszkára!
Azt kéne kiszámolni valahogy hogy mi lenne az ideális darabszám az adott hosszokból hogy a lehető legkevesebb hulló anyag legyen, pl:
kell, 100, 200, 300cm-s deszka, akkor a legideálisabb, 1db 5,1-es és 1db 4,5-es!
1-2 méretél ehhez nem kell semmi extra mert egyszerű megoldani, de 15-20 tételnél már nagyon bonyolult.
Remélem valaki tud segíteni.
Köszi

P4

ui.: ja és azt jó lenne kideríteni hogy ha a végeredmény 5 - 2 - 4 db az adott hosszokból akkor mely méreteket kell abból kivágni.

[ Szerkesztve ]

Szia!

Ez tipikusan egy SOLVER feladat, (amihez én nem értek). Gugliban keress rá erre vagy valami hasonlóra: "Solver optimal product mix"

Üdv.:
P.

Sziasztok!
Segítséget szeretnék kérni.
Szeretném makrózni a következő feladatot, munka1 lapon az A2-es sort átszeretném másoltatni a munka 2 lap B2-es sorába. Ez eddig nem is lenne gond, a bonyodalom számomra az lenne, hogy a munka1 lap változni fog, A2-es sorba kerülnének az adatok, a makrónak az lenne ha feladata, hogy a munka2 lapon figyelje az első üres sort és oda illessze be az adatokat.
A2-ből először a B2-be aztán a B3-ba és így tovább.
Ha bonyolultan fogalmaztam elnézést kérek.
Nagyon szépen köszönöm előre is a segítséget.

I am a Man of Fortune, and I must seek my Fortune.

Szia!

Valami ilyesmire gondoltál?

Sub Masolas()

Dim ws_from As Worksheet
Dim ws_to As Worksheet
Dim ws_to_lastrow As Long

Set ws_from = Worksheets("Munka1")
Set ws_to = Worksheets("Munka2")
ws_to_lastrow = ws_to.Cells(ws_to.Rows.Count, "A").End(xlUp).Offset(1, 0).Row
ws_to.Rows(ws_to_lastrow).EntireRow.Value = ws_from.Rows(2).EntireRow.Value

End Sub

[ Szerkesztve ]

Szia!
Erre gondoltam igen, csak amit a munka1 A2-ről másol azt a munka2 B2-be tegye. Szóval az első oszlop az A az maradjon üresen. Egy oszloppal kellene eltolni amit a munka2 lapra másol és teljesen jó!

I am a Man of Fortune, and I must seek my Fortune.

Sziasztok!

Azt meg lehet oldani, hogy egy oszlopban rögzítse a függvény értékeit minden egyes cellában? Adott pl. a D oszlopban egy egyszerű $B$1*$C$1 ezt folytatnám $B$2*$C$2 stb. Azért kéne, hogy ha másolok vagy mozgatnám akkor maradjanak az értékek.

Szia!

Elnézést, átsiklottam ezen a részen.
Kicsit átírtam a kódot.

üdv
P.

Sub Masolas()

Dim ws_from As Worksheet
Dim ws_from_lastcolumn As Long
Dim ws_from_range As Range

Dim ws_to As Worksheet
Dim ws_to_lastrow As Long
Dim ws_to_range As Range

Set ws_from = Worksheets("Munka1")
Set ws_to = Worksheets("Munka2")
ws_from_lastcolumn = ws_from.Cells(2, ws_from.Columns.Count).End(xlToLeft).Column
Set ws_from_range = ws_from.Range("A2:" & Chr(ws_from_lastcolumn + 64) & 2)
ws_to_lastrow = ws_to.Cells(ws_to.Rows.Count, "B").End(xlUp).Offset(1, 0).Row
Set ws_to_range = ws_to.Range("B" & ws_to_lastrow & ":" & Chr(ws_from_lastcolumn + 65) & ws_to_lastrow)
ws_to_range.Value = ws_from_range.Value

End Sub

[ Szerkesztve ]

Szia!

Vedd le a rögzítést a sorok számáról:
$B2*$C2

Üdv.:
P.

Szia!
Nagyon szépen köszönöm! Tökéletes!

I am a Man of Fortune, and I must seek my Fortune.

És ha mozgatni akarom függőleges irányban is?
Meg az eredeti kérdés arra irányult volna, hogy ne kelljen minden egyes cellánál beírni a rögzítést, hanem valahogy lehúzni vagy alkalmazni egy oszlopra/sorra..

[ Szerkesztve ]

Szívesen!

Lehet hogy nem értek valamit?
Ha így írod be: $B2*$C2 akkor függőleges irányba tudod húzni a képletet és a sorok száma folyamatosan változni fog, az oszlopod fix marad. Ezt utána miért akarod rögzíteni?
Esetleg rakj fel egy táblát amiben látszik, hogy mit szeretnél pontosan.

Üdv.:
P.

Ez így működik is csak, ha a képlettel kapott adatokra máshol van szükség akkor vagyok bajban.
[link]

Mondjuk most, hogy így gondolkodok lehet egy = és kijelölöm a szükséges cellákat megoldaná a problémámat.
Ha lenne esetleg megoldás arra hogy lehet a rögzítést alkalmazni egy már kész oszlopra(vagy sor, stb.) akkor azt továbbra is várom. Illetve egy képleten belül minden cellára, hogy ne kelljen végig menni egyesével. pl
=($B$2*$C$2*$D$2*$E$2) vagy hosszabbaknál, ahol bonyolultabb a képlet esetleg a más munkalapon található cellanevek miatt kevésbé átlátható.
Köszönöm a segítséget! -előre is

[ Szerkesztve ]

Szia!

Alap excelben én nem tudok olyan megoldásról, amivel a dollárjeleket be lehetne rakni a képletbe. Vannak részmegoldások amit egy sima cserével (CTRL+H) meg lehet csinálni, pl a relatív oszlopot lehet cserélni (pl.: "A"-ról "$A"-ra) és fordítva. De ugyanígy az összes (vagy kijelölt) cellákból ki lehet törölni a dollárjelet. Viszont ha mondjuk az oszlopod fix (legyen "B") és a sorod lefelé változik (1,2,3 stb..), akkor itt soronként kell cserét csinálni, mivel egyszerre az össze számot nem tudod keresett szövegként beadni a cseréhez.

Lehet hogy van rá mezei felhasználóknak is egyszerű megoldás, csak én nem találkoztam vele.

Viszont VBA-val egyszerűen meg lehet csinálni. A linken található fájlban figyeld a kijelölt területet (ami képletet tartalmaz) nyomkodd végig a gombokat, és figyeld a szerkesztőlécen, hogy mi történik a képlettel.

[link]

üdv
P.

Igen, ilyesmire gondoltam. Köszönöm!
Ilyeneket a VS Community-vel tudok csinálni?A hivatalos honlapon a tutorialok jók kezdésnek?

Szívesen!

Ha excelben dolgozol, akkor sztem kezd el ezen keresztül megtanulni a VBA-at. Van egy-két jó könyv (magyarul is), és itt fórumon is sokat lehet tanulni.
ALT+F11 és mehet a móka.

üdv.:
P.

Üdvözlet, Mindenkinek! "Régebbi" MSExcel verziókban volt egy Special paste nevű lehetőség. Azt kérdezném, hogy a mostaniakban van-e ilyen? 2010-est használok. Üdv.: Joe

LEGO-ból bármit megépíteni, csak idő kérdése.

Sziasztok!

Hogyan tudnék egy cellán belül beírni képletet és szöveget?

Szeretném ha az oszlop legfelső cellájában összesítené az alatta lévőket és nevet is szeretnék adni mellé.

Köszi!

="név " & SZUM(C2:C10)

vagy a cellaformátum "név: "# ##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.

Köszönöm!

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.

Sziasztok Guruk,

kis segítség kéne

szeretném, hogy a "ritkán, enyhe, stb" lehetőségek legördlnének, és azok "szorzata" automatikusan beszinezné a fokozatnál lévő cellát.

a gördülés megvan, és gondolom feltételes formázás kéne, csak lövésem nincs mit-s hogyan.

oxox

Ki gépen száll fölébe.... SC2 nick: oxox character code: 698...dio3/ow: oxox#1525 + #21838

Nem látszanak a sor-, és oszlopazonosítóid.
Tegyük fel, hogy a "ritkán" szó a B3 cellában van.

Ebben az esetben a D3:D5 cellákat kijelölve a feltételes formátum képlete =ÉS($B3="ritkán";$C3="enyhe"),

az E3:E5-é =ÉS($B3="gyakran";$C3="enyhe"),
az F3:F5-é =ÉS($B3="gyakran";$C3="súlyos")

Ez csak akkor működik majd, ha a B oszlopban a gyakran szó helyett nem gyakra, és nem gykran szerepel.

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

szia,

nem müködik, de valószinüleg csak én nem voltam egyértelmü
konkrétan így nézne ki

Az alsó táblázat pedig az összetevőkből adódó szint mutatja.
tehát ha a B oszlopban + C oszlopban legörgetek egy-egy szöveget, akkor a lenti táblázat alapján ad neki a megfelelő D, E, F, G, H oszlopba egy szint.

pl. előfordulhat + kritikus, = narancssárga az F oszlopban

thanks
oxox

[ Szerkesztve ]

Ki gépen száll fölébe.... SC2 nick: oxox character code: 698...dio3/ow: oxox#1525 + #21838

a példa most nézem, hogy rossz, mert ott mindkettőnél narancssárga van.

Ki gépen száll fölébe.... SC2 nick: oxox character code: 698...dio3/ow: oxox#1525 + #21838

Mindkettőnél piros van.

Feltettem egy fájlt, majd átírod a G és H oszlop feltételes formázásának a képletét, és a hozzárendelt színt, most pirosak a csatolt képed szerint.

Nézd meg a Névkezelő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.

köszönöm szépen, molyolok vele ...és próbálom megfejteni

Ki gépen száll fölébe.... SC2 nick: oxox character code: 698...dio3/ow: oxox#1525 + #21838

Szívesen.

Azt nézd meg, hogy a feltételes formázás az I oszlopban lévő értéket figyeli.

Neked kell meghatároznod, hogy a jelenlegi 2 piros mekkora szorzat-értéknél váljon ketté.

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

sziasztok
Egy feladat egyik részleténél elakadtam. Konkrét mintával illusztrálom, hogy mire kellene egy képlet.
Adott A oszlop, amelyben nevek szerepelnek. Ebből az oszlopból kell minden nevet egyszer kiválasztva leválogatni a B oszlopba. köszönöm

Másold át a teljes oszlopot a B-be, majd ezt kijelölve Adatok | Adateszközök | Ismétlődések eltávolítá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.

nagyon köszönöm én meg már mindenféle képlettel próbálkoztam