-
Fototrend
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
-
visit
tag
Üdv!
Nem tudom megoldani:
Benzinköltség számítás. Adott napon elfogyott x liter, ez került y forintba.
A oszlop = liter (pl. 42liter)
B oszlop = liter * Ft
De azt szeretném, hogy mondjuk kinevezek egy cellát, pl. D5, és ebbe beleírom, hogy 354Ft.(1 liter benzin ára)
Ezután a B oszlop sorai mindig szorozzák meg az A oszlop sorait ezzel a D5 értékkel.
A gondom az, hogy ha beírom az első sorba a képletet, és végighúzom a cellát lefelé, akkor a D5 is szépen növekszik D6, D7, D8 stb. Csak én ezt nem akarom, azt szeretném, hogy minden sor így nézzen ki: B1=A1*D5 , B2=A2*D5, B3=A3*D5, stb.
Ezt jó bonyolultan tudtam leírni...
Köszönöm az esetleges segítséget! -
-
visit
tag
válasz m.zmrzlina #9653 üzenetére
Igen, igeeeeen! Köszönöm!!
Ez az "abszolút hivatkozás", ez nem jutott eszembe.[ Szerkesztve ]
-
Pá
addikt
Sziasztok!
Solveres zseniket várok.
Forma1-es fantasy ligához készítettem egy excel táblát, hogy segítsen optimalizálni a csapatomat.
Arról van szó, hogy van ugye 12 csapat és 24 pilóta. Minden csapatnak és pilótának van egy X értéke, ami meghatározza, hogy milyen erős és egy Y, ami azt hogy mennyibe kerül. Nekem van összesen Z pénzem és abból kell kigazdálkodni a lehető legerősebb 2 pilóta + 3 csapat kombót. Annyi megkötés van még, hogy ha válaszottam mondjuk egy csapatot, akkor a pilótáknál már nem választhatom az adott csapat pilótáit és fordítva.Nah, ezt sikerült megoldani. Sajnos nem tökéletes, mivel a solver iszonyatosan erölteti a tört számokat, annak ellenére, hogy minden lehetséges formában elmagyaráztam neki, hogy kizárólag egész számokat kérek. De fogjuk rá, hogy nagyjából működik.
Viszont. A következő fordulóban már azt kéne csinálni, hogy nem nulláról építkezem, hanem a meglévő csapatomat kéne upgradelni. Szóval a solver figyelembe kéne vegye, a jelenlegi csapatomat és úgy összeállítani az újat, hogy a régi csapatomból elad elemeket (ha kell) azért pénzt kapok, majd megveszi az újakat stb.
Nem tudom, hogy én vagyok primitív ehhez a feladathoz, vagy a solver, de egyelőre nem sikerült dűlőre jutnunk egymással.
''Annyira vagyunk egészségesek, amennyire a gondolataink humánusak.''
-
-
tuono
csendes tag
Sziasztok!
Egy kis segítségre lenne szükségem.
Van egy oszlopom, ahol számok szerepelnek. Van köztük pozitív és negatív is. Azt szeretném elérni, hogy egy külön mezőbe átlagolja nekem a negatív összegeket, egy másikba pedig a pozitív összegeket. Én ezeket akarom majd egymással elosztani, egy kvázi átlaghozamot, arányt számolni belőlük.
Próbáltam már "ha" függvénybe ágyazott "atlag" függvénnyel, de nem működik. Nem tudom mi lehet a gond, nem igazán értek hozzá.Előre is köszi,
tuono -
Delila_1
Topikgazda
Valószínűleg meg lehet oldani egyszerűbben is, míg nem jön jobb ötlet, addig ezt javaslom.
A számok az A1:A20 tartományban vannak.
A B1 képlete. =HA(A1>0;1;-1), ezt lemásolod B20-ig.
Pozitívak átlaga: =SZUMHA(B1:B20;1;A1:A20)/DARABTELI(B1:B20;1)
Negatívak átlaga: =SZUMHA(B1:B20;-1;A1:A20)/DARABTELI(B1:B20;-1)Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
tuono
csendes tag
válasz m.zmrzlina #9660 üzenetére
Köszönöm, de sajna 2003-as az excelem. atlagha nincs sajna.
-
perfag
aktív tag
válasz Delila_1 #9659 üzenetére
Nem állítom, hogy egyszerűbb. Más. Tömbképlettel. C3:C7 tartományra a negatív számok átlaga:
{=ÁTLAG(HA(C3:C7<0;C3:C7;HAMIS))}
Nem saját tudás, Chip Pearson pont egy ilyen példán mutatja be a tömbképletek használatát. -
Delila_1
Topikgazda
Szívesen. Nézd meg perfag megoldását, ahhoz nem kell segédoszlop.
A tömbképletet úgy viheted be, hogy beírod a =ÁTLAG(HA(C3:C7<0;C3:C7;HAMIS)) képletet, és Shift+Ctrl+Enterrel viszed be.
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
tuono
csendes tag
Nagyon tetszik ez a fórum, hihetetlen, hogy mindenre tudjátok a választ.
Nem tudom, hogy ilyesmiben is tudtok-e segíteni?! Egy ideje próbálok csinálni magamnak egy véletlen-szám generátort. Egy egyszerű Bernoulli sikerült is (igen-nem bekövetkezéssel), de ennél összetettebbre van szükség, hogy pontosan tudjam szimulálni az összeredményt.
Tehát készíteni szeretnék magamnak egy véletlen-szám generátort. 6 esemény véletlenszerű bekövetkezése (pl. 1000 esetből), meghatározott valószínűséggel. A kép mutatja, hogy miről van szó. A "Data Analysis" alatt keresgéltem hozzá, de nem tudom melyiket kéne használnom, azt meg pláne nem, hogy hogyan. Bár excelhez kötődik, de lehet kissé OFF.
-
perfag
aktív tag
Szerintem nem jól kérdezel. Én egyáltalán nem értem mit szeretnél (elismerem, a 84-es IQ-m mellett ez egyáltalán nem meglepő. ) Szomorú, de nem tudom mi az a Bernoulli, még szomorúbb, hogy nem is akarom tudni. Azt mond meg miből hogyan kellene kiszámolni valamit, és ha jól csinálom akkor mennyi legyen az eredmény.
-
Franticfox
tag
Sziasztok!
Egy elég alapvető problémám lenne, valószínűleg valaki fel is vetett már valami hasonlót, de sajnos nincs elég időm a megfelelő keresésre.
A probléma a következő lenne:
Adott egy sok kisebb adatoszlopból álló hosszú adatoszlop (tehát egy adatoszlop ismétlődő szakaszokkal). Az egyes kis adatoszlopok rögtön az elején meg vannak címezve egy számmal, a következő sorok pedig különböző tulajdonságokat írnak le.
Azt szeretném megcsinálni, hogy ha a kis adatoszlopok elején lévő címzés (mondjuk van 5 fajta ilyen, a nevük 1,2,3,4,5) egyenlő 1,2,3,4,5 valamelyikével, akkor abból a kis adatoszlopból másoljon ki a tulajdonságokra vonatkozó értékeket egy másik oszlopba.
Tehát a nagy adatoszlopomból csináljunk 5 kisebb adatoszlopot, a kis oszlopok elején lévő címzés szerint.
Alapvetően azzal nem tudok mit kezdeni, hogy az egyes adatok közt vannak üres/felesleges cellák, amik nem kellenek, és nem tudom eltüntetni őket úgy, hogy az 5 kisebb oszlopba csak a nekem szükséges adatok legyenek felsorolva.Valaki tud segíteni?...
Üdv,
Franticfox
''Monas apó legyintett. Két kézzel is.''
-
Delila_1
Topikgazda
válasz Franticfox #9668 üzenetére
Adj nevet a különböző szakaszoknak a kép szerint, és akkor névvel hivatkozhatsz rájuk, akár fkeres, vagy hol.van, vagy indirekt, stb. függvényekkel.
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
Franticfox
tag
válasz Delila_1 #9669 üzenetére
Szóval van egy 172.000 sorból álló oszlopom 313 sorú blokkokkal, nem tudom egyenként elnevezni őket. További probléma, amit elfelejtettem említeni, hogy sajnos a címzések neve megegyezik egy tulajdonságnévvel sajnos... (konkrétan van 38 tulajdonság és mondjuk 5 címzés, és a címzések neve pl <int>2</int>, vagy <int>3</int>, és a tulajdonságok közt is van egy ilyen nevű. Ezen kívül nekem pl a <int>2</int> tulajdonság után 3 cellára lévő érték kellene, mert az tartozik hozzá... :/
''Monas apó legyintett. Két kézzel is.''
-
Delila_1
Topikgazda
válasz Franticfox #9670 üzenetére
Így gondoltad?
Szerk.: a keresett értéket (<int>2</int>) megadhatod egy cellában, és akkor a hol.van függvényben erre a cellára hivatkozhatsz.
Azt is megadhatod egy külön cellában, hogy hány sorral lentebbi értékre van szükséged, a +3 helyett +cellahivatkozás lehet a képletben.[ 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
válasz Franticfox #9673 üzenetére
Az
=INDIREKT("A"&HOL.VAN("<int>3</int>";A:A;0)+3)
elején az "A" azt jelenti, hogy a keresett cella értékét az A oszlopból vegye. A sor számát a hol.van függvény adja, ami az idézőjelek közé tett <int>3</int> szöveget keresi, szintén az A oszlopban (A:A), a jelenlegi képlet szerint. A nulla az A:A után azt jelzi, hogy pontos egyezést keressen, mert lehetne közelítő találat is, a súgóban találsz erről leírást, ha érdekel.Ha a keresett szöveget pl. az E1-ben adod meg, a képlet =INDIREKT("A"&HOL.VAN(E1;A:A;0)+3)-re módosul, itt már nem kell idézőjelek közé tenni.
Az E1-be tehetsz egy érvényesítést, ami egy legördülőből teszi kiválaszthatóvá a keresett értéket.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 Franticfox #9673 üzenetére
A képen látszik, hogy a D1-be bevittem egy érvényesítést, ami a G1:G5 tartományban lévő címzések közül enged választani. Az E1-ben látszik az eredmény.
Hányas verziót használsz?
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
Franticfox
tag
válasz Delila_1 #9675 üzenetére
2010...
Próbálkoztam itt ezekkel a függvényekkel, és szép és jó, hogy kiírok egy adott cellából egy értéket, de hogy lesz ebből adatsor?... szóval nekem van egy hosszú adatsorom, a nekem ebből szükséges értékeket ki is tudom jelölni, ezt eddig is meg tudtam csinálni mondjuk úgy, hogy a megfelelő értékek mellé a köv oszlopba írtam egy egyest a megfelelő sorrendben, majd a jobb alsó sarokban lévő kis fekete x-et lehúztam, de ez most nem is érdekes, megpróbálom megvilágítani az engem érdeklő problémát:
Szóval tegyük fel, hogy most van egy lyukas adatsorom mindazokkal az adatokkal amik kellhetnek nekem. Azt akarom csinálni, hogy a 313 soronként ismétlődő értékeket megvizsgálom, és az értékeküktől függően 5 másik oszlopba rendezem a rákövetkező 312 cellát.
Mindezt azért csinálom, mert ez az 5 oszlop különböző típusú pontokat takar, a pontok jellemzőit pedig 38 tulajdonság határozza meg, ami a 312 sorban van leírva, jó foghíjasan, ráadásul az egyes tulajdonságokhoz tartozó értékek is külön cellákban vannak ugye. Ezek után majd ki akarok választani a helyzettől függően 2 tulajdonságot, illetve az ehhez tartozó értékeket, és a pontokat ábrázolni egy pontdiagramon, vagyis egy 2 dimenziós koordinátarendszerben, hogy szemmel lássam, mennyire különülnek el egymástól a ponthalmazok.Nem tudom, mennyire sikerült megvilágítani a problémát...
Megoldást jelenthetne a problémára a következő eljárás:
Egy eljárás, ami az oszlopban megvizsgál minden 313-ik értéket, és hogyha az X, akkor az onnan számított +Y-odik cellát kimásolja egy Z-edik oszlopba úgy, hogy a soron következő ugyanolyan X-hez tartozó +Y-odik értéket az előző alá másolja.
Ez pont úgy szortírozná szét a dolgokat, ahogy nekem kellene, tehát lenne 5 oszlopom, ami ugyanolyan típusú pontokat tartalmaz, a rá jellemző Y értékekkel.
Egy másik Y értékre is megcsinálva ugyanezt, majd ábázolva ezt diagramon, kapnék egy 2 dimenziós mátrixot, amiben szemmel láthatóan el lehetne különíteni az 5 csoportba tartozó pontokat mondjuk a színük alapján.Tehát 4 változtatható érték kell nekem az eljárásba, X, Y, Z, és mondjuk a a minden 313.-ik sort is lehetne variálni, ez legyen V.
''Monas apó legyintett. Két kézzel is.''
-
Delila_1
Topikgazda
válasz Franticfox #9676 üzenetére
Hú, eltarthatott egy ideig, míg ezt megfogalmaztad, ám a kívülállónak (vagy legalábbis nekem) ez így túl tömény.
Mi lenne, ha elküldenéd a füzetet? hátha akkor jobban átlátnám.
Elég 2 db 313 soros egység, és hamis adatok is megfelelnek, csak a jellegük legyen olyan, mint az eredetié.Ja, és ha elküldöd, 2007-es formában tedd. Azt is szívből utálom, de fel van téve, és dolgozom is vele, ha kell. 2010-em nincs.
[ 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.
-
Franticfox
tag
válasz Delila_1 #9677 üzenetére
No, holnap lehet küldök akkor egy rövidebb szakaszt (Igazából az időm csak egy részében tudok ezzel foglalkozni, ezért is gondoltam h segítséget kérek) Ma is gondolkoztam ezen, de szóval inkább hazajöttem már Majd küldök valami jellegében hasonló dolgot, úgy biztos világosabb lesz. Amúgy igen, már a 2007-es verziót is utáltam, ezt a 2010-est még csak kezelni sem tudom, és egyébként is Origint használtam már az utóbi időben, itt viszont excel van feltéve (ráadásul a legutóbbi)... Eddig is köszönöm a segítségedet amúgy Szép estét!
Üdv,
Franticfox
''Monas apó legyintett. Két kézzel is.''
-
ulrik19
tag
Csinálj egy kumulált valószínűségoszlopot (eloszlási függvényt):
40
69
84
93
98
100Majd generálsz egy (lineáris eloszlású) "sima" véletlenszámot 0 és 100 közötti intervallumra. Ezután az fkeres() = vlookup() függvények intervallumkeresésével kiválasztod, hogy melyik esemény következett be a 6-ból és annak mi a kimenete.
[ Szerkesztve ]
...az élet igazságos, mert pl. akinek rövidebb az egyik lába, annak hosszabb a másik...
-
bozsozso
őstag
sziasztok!
Olyanra lenne szükségem, hogy több hasonló nevű *.csv-ből szeretném az ugyanolyan termék neveket és a hozzá tartozó adatokat kinyerni egy excelbe. A megnevezéshez mennyiségek tartoznak és ezt szeretném összesíteni belőle egy excel táblába. Valószínű de nem biztos, hogy minden csv-ben szerepel ugyanaz a megnevezés.
Ezek termék megnevezések és hozzá tartozó mennyiségek, árak. A mennyiségeket szeretném összeadni az áradatoket nem, de ha már a mennyiséget sikerülne egy táblázatba kinyernem az jó lenne. Az ár az minden telephelynél egyforma.Előre is köszönöm a segítséget.
-
tzetko
csendes tag
Szia Delila!
A múltkor kaptam tőled segítséget "mentés makróval"
Munka1 lapon 3 oszlop kitöltése után automatikusan másol a Munka2 nevű lapra és a mentéseket soronként hozzáadja a Munka2 nevű lapon.
A makró jól működik, de volna egy kérésem amit változtatni kellene rajta.
A copy-zás helyett csak értékbeillesztést kellene végrehajtania a Munka1 -ről a Munka2 lapra.
makrófelvétellel nem boldogulok.
Amit múltkor írtál:
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 3 Then
Dim usor As Long
usor = Sheets("Munka2").Range("A50000").End(xlUp).Row + 1
Rows(Target.Row).Copy Sheets("Munka2").Cells(usor, 1)
End If
End Subeddig amit próbálgattam, de nem működik:
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 3 Then
Dim usor As Long
Selection.Copy
Sheets("Munka2").Select
usor = Sheets("Munka2").Range("A50000").End(xlUp).Row + 1
Rows(Target.Row).Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=FalseEnd If
End SubSegítségedet előre is köszönöm.
-
radam
csendes tag
Sziasztok!
Egy technikai jellegű kérdésre keresem a választ.
Vannak vállalatneveim egy oszlopban, mellette további oszlopokban az adott vállalatra vonatkozó adatok. Illetve vannak a vállalat nevét viselő munkalapok. A cél: a fenti munkalapról az adott vállalat nevét viselő munkalapra átmásolni az adott vállalatra jellemző adatokat.
Probléma: ha egy változóba beolvasom a vállalat nevét (pl. nev="Első vállalat"), akkor ezzel a változóval meg tudom hívni a vállalat nevét viselő munkalapot (pl. Worksheets(nev).Activate)? Mert ezt nekem nem fogadta el. Ez a helyes írásmód? Vagy hogyan lehet ezt kivitelezni?Köszönöm!
[ Szerkesztve ]
-
radam
csendes tag
válasz bugizozi #9684 üzenetére
Köszönöm, de szvsz az alapvető probléma az, hogy a nev változó a bevitt nevet idézőjelek nélkül őrzi meg. (nev="első vállalat" -> ?nev = első vállalat). Viszont amikor kiválasztom a munkalapot, akkor megint az "első vállalat" írásmódra van szükségem (Worksheets("első vállalat").Activate).
[ Szerkesztve ]
-
Delila_1
Topikgazda
Próbáld ezt:
Sub ugras()
Sheets("Munka1").Select
usor = Range("A1").End(xlDown).Row
For sor = 1 To usor
lapnev = Sheets("Munka1").Cells(sor, 1)
Sheets(lapnev).Select
MsgBox "Itt vagyok a(z) " & lapnev & " lapon"
Next
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.
-
bugizozi
őstag
Azt hiszem értem hogy mit mondasz, de nem értem, hogy miért nem működik nálad...
Egy üres excelben átneveztem a Munka2 lapot "Első vállalat" -ra,idézőjelek nélkül majd a Munka1 lapra váltottam.
A kódom:nev = "Első vállalat"
Sheets(nev).Selectfuttatom és simán átvált az "Első vállalat" -ra...
[ Szerkesztve ]
VCP7-DCV, CCNA ||| Ami működik, ahhoz nem szabad hozzányúlni!
-
félisten
válasz bozsozso #9681 üzenetére
A termékek megnevezése, az fix helyen van az összes CSV fájlokban, vagy változó, hogy hol helyezkedik el? pl itt mindig az első helyen van a termék neve
kapa;2000;fém
lapát;2500;műanyagMindenki 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)
-
félisten
válasz bozsozso #9681 üzenetére
No mindegy, majd kipróbálod, aztán ha valamit módosítani kell, akkor módosítva lesz...
Private Sub CommandButton1_Click()
'elválasztó-karakter a CSV fájlokon belül
Const MYDELIMITER = ";"
'hol találhatóak a CSV fájlok
Const MYPATH = "D:\fire\csvs_path\"
'melyik munkalapra legyenek bemásolva az adatok
Dim DestWB As Worksheet
Set DestWB = Worksheets("Munka2")
'a megadott munkalap melyik cellájától kerüljenek be az adatok
Dim DestRange As Range
Set DestRange = DestWB.Range("A1")
Dim MyStr As String
Dim MyStrs() As String
'meg kell adni, milyen terméket keressünk a CSV fájlok-ban és OK gomb
'Cancel gombbal megszakítható a művelet
UserChange = InputBox("Mit keressünk? (kis- és nagybetű nem számít...)", "Keresés...")
If Len(UserChange) > 0 Then
Application.ScreenUpdating = False
'kiválasszuk a megadott munkalapot
DestWB.Select
'töröljük annak teljes tartalmát
DestWB.UsedRange.Clear
DestRange.Select
MyRowCount = 0
MyFname = Dir(MYPATH & "*.csv")
Do While Len(MyFname) > 0
MyFnum = FreeFile
Open MYPATH & MyFname For Input As MyFnum
While Not EOF(MyFnum)
Line Input #MyFnum, MyStr
MyStrs = Split(MyStr, MYDELIMITER)
'vizsgáljuk, hogy a CSV fájl adott sorában, utolsó eleme után van-e még elválasztókarakter avagy sem
If Right(MyStr, 1) = MYDELIMITER Then
MyCount = UBound(MyStrs())
Else: MyCount = UBound(MyStrs()) + 1
End If
'a MyStrs(0) indexével adjuk meg, hogy a CSV fájlon belül, hányadik elem a termék neve
'első->0, második->1, harmadik->2 stb stb
If UCase(MyStrs(0)) = UCase(UserChange) Then
For i = 0 To MyCount - 1
ActiveCell.Offset(MyRowCount, i).Value = MyStrs(i)
Next i
MyRowCount = MyRowCount + 1
End If
Wend
Close MyFnum
MyFname = Dir()
Loop
Application.ScreenUpdating = True
'ha nem találtunk egyetlen megadott nevű terméket sem, arról értesítést adunk
If MyRowCount = 0 Then MsgBox "A megadott termék nem található az átvizsgált CSV fájlokban.", vbInformation
End If
Set DestWB = Nothing
Set DestRange = Nothing
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)
-
DoubleD
aktív tag
Egy Excel táblázat egy oszlopában található értékekre szeretnék átlagot számolni úgy, hogy minden ötödik elem vegyen részt a folyamatban.
Valahogy úgy, hogy =ÁTLAG(1:5:100).
Tudna valaki segíteni a szintaxisban?
Isten halott. - Nietzsche ---------------------------- Nietzsche halott. - Isten (Graffiti)
-
-
bozsozso
őstag
válasz Fire/SOUL/CD #9690 üzenetére
igen fix helyen van benne minden adat. a termék neve mindig a 4. helyen
-
tzetko
csendes tag
Szia Delila!
lehet hogy nem olvastad a tegnap esti kérésemet.
nem szeretnék tolakodó lenni, pusztán kérdezem tudsz-e még segíteni nekem?
fentebb láthatod a kérésemet.Köszi.
-
bozsozso
őstag
válasz Fire/SOUL/CD #9691 üzenetére
most kipróbáltam és ennél a sornál megáll:
If UCase(MyStrs(4)) = UCase(UserChange) Then
runtime error'9':
Subscript out of range
-
Delila_1
Topikgazda
Tényleg elkerülte a figyelmemet, elnézést.
A Munka1 laphoz rendelt makró:
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 3 Then
Dim usor As Long
usor = Sheets("Munka2").Range("A50000").End(xlUp).Row + 1
Rows(Target.Row).Copy
beilleszt usor
End If
End SubÉs most a VB szerkesztőben a füzetedhez nyiss új modult. Insert, Module.
A kapott üres lapra ez jön:Sub beilleszt(usor)
Sheets("Munka2").Select
Rows(usor).Select
Selection.PasteSpecial Paste:=xlPasteValues
Application.CutCopyMode = False
Sheets("Munka1").Select
End SubÍgy már értéket illeszt majd be a Munka2-re.
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.