-
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
-
-
Enikő 39
friss újonc
Köszönöm!
-
Zoty4
őstag
Sziasztok
Ismét egy kis segítséget szeretnék kérni.
Azt szeretném beállítani hogy 1-1100. sorig oldalt egy kis gombocskával összecsukható legyen az 1100 db sor
Majd a következő 1100 szintén egy másik gombbal. Láttam már ilyet régebben, de nem találom és nem tudom hogy ezt hogy hívják, így sajnos ráguglizni sem tudtamElőre is köszönöm
-
Fferi50
őstag
-
Zola007
veterán
az i.....b.....meg a microsoftot
relative nagy számokkal kellene dolgoznom, ha számként illesztem be, akkor a 15 helyiérték felett mindent nullára kerekít, ha pedig szövegként, akkor tudományos formátumba (....E+11) stb illeszti be
Én csak annyit szeretnék, hogy ha bemásolok egy számot, akkor azt mutassa, ne mást.
Mi lenne erre a megoldás?
Hogyan lehet teljesen kikapcsolni az autoformatot?Mʏ ᴘʜɪʟᴏsᴏᴘʜʏ ɪs: Iᴛ’s ɴᴏɴᴇ ᴏғ ᴍʏ ʙᴜsɪɴᴇss ᴡʜᴀᴛ ᴘᴇᴏᴘʟᴇ sᴀʏ ᴏғ ᴍᴇ ᴀɴᴅ ᴛʜɪɴᴋ ᴏғ ᴍᴇ. I ᴀᴍ ᴡʜᴀᴛ I ᴀᴍ ᴀɴᴅ I ᴅᴏ ᴡʜᴀᴛ I ᴅᴏ. I ᴇxᴘᴇᴄᴛ ɴᴏᴛʜɪɴɢ ᴀɴᴅ ᴀᴄᴄᴇᴘᴛ ᴇᴠᴇʀʏᴛʜɪɴɢ. Aɴᴅ ɪᴛ ᴍᴀᴋᴇs ʟɪғᴇ sᴏ ᴍᴜᴄʜ ᴇᴀsɪᴇʀ. - Sɪʀ Aɴᴛʜᴏɴʏ Hᴏᴘᴋɪɴs
-
Fferi50
őstag
válasz Zola007 #44308 üzenetére
Szia!
"relative nagy számokkal kellene dolgoznom,"
Tudnod kell, hogy az Excel csak 15 értékes számjegyet tud kezelni, ez a rendszer korlát.
Tehát ennél nagyobb terjedelmű számokat csak szövegként tudod bevinni.
Vagy a cellaformátumot kell szövegre állítani vagy az aposztróffal (') kell kezdeni, ahogyan az előző hsz-ban tanácsolták.
Üdv.[ Szerkesztve ]
-
Xanderas
csendes tag
Hali
Szeretnék egy havi lebontású jelenléti ívet amiben a szombati és a vasárnapi sorokat beszinezné. Elméletileg a feltételes formázás lenne a megoldás de nem akar összejönni.
Tud valaki segíteni?
Szerintem az lehet a gond, hogy a napokat dátumból generálja és nem szövegként hanem számsorként kezeli és ezért hiába adom meg feltételnek a szombatot és a vasárnapot nem értelmezi.
Lehet nem gondolom jól!
Előre is köszi.
Üdv -
Zola007
veterán
válasz Fferi50 #44310 üzenetére
tudom
ezért írtam, hogy " ha pedig szövegként, akkor tudományos formátumba (....E+11) stb illeszti be"
aposztróf nyilván működik, csak azt nem értem, hogy ha szöveg formátumot állítok be, akkor miért nyúl hozzá?
szöveg formázásnak pont az lenne a lényege, hogy amit beírunk az úgy marad
(100 egység széles a cella, szóval nem rövidít)Én csak annyit szeretnék, hogy ezt a nyomorult auto-formatot ki lehessen teljesen kapcsolni és az Office 2007 óta nem bírják ezt megoldani.
Google Sheets és más táblázatkezelők simán kezelik a nagy vagy speciális (pl. vonalkód) számokat, tehát programszinten nem akadály.
[ Szerkesztve ]
Mʏ ᴘʜɪʟᴏsᴏᴘʜʏ ɪs: Iᴛ’s ɴᴏɴᴇ ᴏғ ᴍʏ ʙᴜsɪɴᴇss ᴡʜᴀᴛ ᴘᴇᴏᴘʟᴇ sᴀʏ ᴏғ ᴍᴇ ᴀɴᴅ ᴛʜɪɴᴋ ᴏғ ᴍᴇ. I ᴀᴍ ᴡʜᴀᴛ I ᴀᴍ ᴀɴᴅ I ᴅᴏ ᴡʜᴀᴛ I ᴅᴏ. I ᴇxᴘᴇᴄᴛ ɴᴏᴛʜɪɴɢ ᴀɴᴅ ᴀᴄᴄᴇᴘᴛ ᴇᴠᴇʀʏᴛʜɪɴɢ. Aɴᴅ ɪᴛ ᴍᴀᴋᴇs ʟɪғᴇ sᴏ ᴍᴜᴄʜ ᴇᴀsɪᴇʀ. - Sɪʀ Aɴᴛʜᴏɴʏ Hᴏᴘᴋɪɴs
-
Zola007
veterán
válasz Zola007 #44314 üzenetére
a táblázatot előre formázom szövegként, nem utólag, mégis rossz a "csak értékként" beillesztés után
Mʏ ᴘʜɪʟᴏsᴏᴘʜʏ ɪs: Iᴛ’s ɴᴏɴᴇ ᴏғ ᴍʏ ʙᴜsɪɴᴇss ᴡʜᴀᴛ ᴘᴇᴏᴘʟᴇ sᴀʏ ᴏғ ᴍᴇ ᴀɴᴅ ᴛʜɪɴᴋ ᴏғ ᴍᴇ. I ᴀᴍ ᴡʜᴀᴛ I ᴀᴍ ᴀɴᴅ I ᴅᴏ ᴡʜᴀᴛ I ᴅᴏ. I ᴇxᴘᴇᴄᴛ ɴᴏᴛʜɪɴɢ ᴀɴᴅ ᴀᴄᴄᴇᴘᴛ ᴇᴠᴇʀʏᴛʜɪɴɢ. Aɴᴅ ɪᴛ ᴍᴀᴋᴇs ʟɪғᴇ sᴏ ᴍᴜᴄʜ ᴇᴀsɪᴇʀ. - Sɪʀ Aɴᴛʜᴏɴʏ Hᴏᴘᴋɪɴs
-
Sprite75
tag
Szasztok
Újabb makrós problémával kerültem szembe.
Remélem most is tud valaki segíteniAdott az alábbi 2 makró, amiből az egyik egy új sort szúr be a táblázatba kiegészítenem most egy másikkal ami az újonnan beszúrt sor D oszopába (jelen esetben D54 cella) beírja a soron következő sorszámot ami a D oszlopban legutóbb szerepelt +1 (Tehát most a példában 15 következne.)
Ott akadtam el, hogy már ki va választva az éppen aktuális cella de hogyan lehetne ide beíratni a soron következő sorszámot?Melléleem a makrókat és egy kéept is a tábláról
Köszönöm szépen előre is
Sub Újsor()
Dim usor As Long
usor = Range("C" & Rows.Count).End(xlUp).Row
ActiveSheet.Unprotect Password:="baromfi"
Rows(usor).Select
Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
ActiveSheet.Protect Password:="baromfi", DrawingObjects:=False, Contents:=True, Scenarios:= _
False, AllowFormattingCells:=True, AllowFormattingColumns:=True, _
AllowSorting:=True, AllowFiltering:=True, AllowUsingPivotTables:=True
Range("A" & usor).Select
End Sub
Sub sorsszam()
Dim usor As Long
usor = Range("C" & Rows.Count).End(xlUp).Row
ActiveSheet.Unprotect Password:="baromfi"
Range("D" & usor - 1).Select
ActiveCell.FormulaR1C1=
ActiveSheet.Protect Password:="baromfi", DrawingObjects:=False, Contents:=True, Scenarios:= _
False, AllowFormattingCells:=True, AllowFormattingColumns:=True, _
AllowSorting:=True, AllowFiltering:=True, AllowUsingPivotTables:=True
End Sub
-
Delila_1
Topikgazda
válasz Sprite75 #44316 üzenetére
Toldd meg a lapvédelemmel.
Sub Sorszam()
Dim usor As Long
usor = Range("C" & Rows.Count).End(xlUp).Row + 1
Range("D" & usor) = Application.WorksheetFunction.Max(Range("D2:D" & usor - 1)) + 1
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.
-
zsolti_20
senior tag
Udv emberek. Mar rengetegszer kaptam itt segitseget amit nagyon szepek koszonok. Ha nem problema egy ujabb kerdessel fordulnek hozzatok.
Lehetseges azt megoldani, hogy excelben a sheet1 lapon az A1 cellaba irva kiadja az adatokat a B : B cellakba amik azon a neveu lapon szerepelnek amit az A1-be irtam?
Pl az excelben van 3 lapom, sheet1,kecske,kutya
A kecske lapon az A1:A10-ben talalhato 10 ertek,szam,betu,akarmi.
A kutya lapon az A1:A32 cellakban talalhato 32 ertek,sza,betu,szo akarmi.
Ha beirom a sheet1 A1 cellaba hogy kecske akkor irja a B oszlopba a kecske lapon szereplo adatokat amik az A oszlopban szerepelnek. -
Fferi50
őstag
válasz zsolti_20 #44318 üzenetére
Szia!
Egy kis "csavarral" az INDIREKT függvény elkerülhető.
Lépések:
1. A névkezelőben a kecske munkalap A1:A10 tartományát elnevezed így: kecske
A kutya munkalap A1:A32 tartományát elnevezed így: kutya.
2. Ezután a képlet a B1 cellába:=HAHIBA(INDEX(VÁLASZT(HOL.VAN($A$1;{"kecske";"kutya"};0);kecske;kutya);SOR());"")
Ezt a képletet húzhatod lefelé a B oszlopban.
Ameddig van adat, addig kiírja az oszlopban, az adatok elfogytával "üres" lesz a cella.
(Nagyobb tartományt is adhatsz a nevekhez, hátha szeretnél még írni bele több adatot.)
Üdv.[ Szerkesztve ]
-
Sprite75
tag
válasz Delila_1 #44317 üzenetére
Szia
Ez így működik is köszönöm, de tovább gondoltam a dolgot.
Tudom ott kezdődik a probléma mikor gondolkodomCsak azoknak a soroknak a D oszlopába kell sorszámozni, ahol a Q oszlopban van szám. Elvileg az lehet 0 is de mindenképpen van írva valami a Q oszlopba amikor a D -be soszám szükséges.
Ezért írtam egy ilyet de természetesen nem jól működikSub Sorszam2()
Dim usorC As Long, usorQ As Integer
usorC = Range("C" & Rows.Count).End(xlUp).Row - 1
usorQ = Range("Q" & Rows.Count).End(xlUp).Row - 1
If usorQ < 0 Then
End
Else
Range("D" & usorC) = Application.WorksheetFunction.Max(Range("D2:D" & usorC - 1)) + 1
End If
End Sub
Az lenne az igazi, ha nem is kellen gombot beraknom ennek a makrónak, hanem amikor írják be az adatokat az új sor gomb megnyomása uttán, és elérnek az adott sor Q oszlopába, és oda bekerül egy szám, akkor iródjon be a következő sorszám az adott sor D oszlopába.
Ha nem írnak semmit az adatbevitelkor a Q oszlopba akkor pedig nem kell új sorszám.Remélem nem bonyolítom a dolgot nagyon
Megint küldök egy képet is a kinézetről.
[kép] -
Delila_1
Topikgazda
válasz Sprite75 #44321 üzenetére
Rendeld a laphoz:
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 17 And Target.Row > 1 And Target.Count = 1 And Target <> "" Then
Cells(Target.Row, 4) = Application.WorksheetFunction.Max(Range("D2:D" & Target.Row - 1)) + 1
End If
End SubA feltételnél azt vizsgáljuk, hogy
– a Q oszlopról van-e szó,
– hogy legalább a 2. sor legyen a bevitel helye,
– ne törlés legyen,
– és van-e bevitt adat. Ehelyett írhatsz szám ellenőrzést:IsNumeric(Target)
Nincs szükség az alsó sor helyére, mert a Q oszlop bevitelére reagá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.
-
Sprite75
tag
válasz Delila_1 #44322 üzenetére
Az And Target <> "" feltételt átírtam erre IsNumeric(Target) mert hibaüzenetet dobott amikor elíndítottam az Újsor makrót.
Az új sor makró ez:
Sub Újsor()
Dim usor As Long
usor = Range("C" & Rows.Count).End(xlUp).Row
ActiveSheet.Unprotect Password:="baromfi"
Rows(usor).Select
Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
ActiveSheet.Protect Password:="baromfi", DrawingObjects:=False, Contents:=True, Scenarios:= _
False, AllowFormattingCells:=True, AllowFormattingColumns:=True, _
AllowSorting:=True, AllowFiltering:=True, AllowUsingPivotTables:=True
Range("A" & usor).Select
End Sub
Így hibaüzenet nincs.
Viszont a Q oszlopba beállítottam érvényesítést, hogy csak számot írhassanak bele, de ha mégis betűt írok véletlenül és jön a hibaüzenet az érvényesítés miatt akkor lefut a sorszámozás.
Ez ki lehet valahogy küszöbölni?Tudod a "bolond boztonság" miatt
-
olloczky
senior tag
Sziasztok
Hogy lehet azt megcsinálni, hogy két oszlop értékeit vessem össze egymással, és a különbségeket kiírassam, vagy formázzam?
A legjobb az lenne, ha egy új oszlopban (N) kiírná azt, ami M-ben szerepel, de L-ben nem.
Előre is köszi!
üdv
szerk.: vagy ha ennek van vmi könnyen guglizható neve, nekem az is jó.
szerk.: hupsz lehet találtam is, nézem[ Szerkesztve ]
Úgy még sosem volt, hogy valahogy ne lett volna!
-
Delila_1
Topikgazda
válasz Sprite75 #44323 üzenetére
"Az lenne az igazi, ha nem is kellen gombot beraknom ennek a makrónak, hanem amikor írják be az adatokat az új sor gomb megnyomása uttán, és elérnek az adott sor Q oszlopába, és oda bekerül egy szám, akkor iródjon be a következő sorszám az adott sor D oszlopába."
Ehhez írtam az eseményvezérelt makró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.
-
bela85
aktív tag
Sziasztok!
Segítséget, tanácsot szeretnék kérni az excel ismétlődések törlése funkcióval (vagy kiváltásával kapcsolatban)
Adott egy tábla melyben cégek beadott pályázatait vezetjük (természetesen több oszlop van mint amit most beírok)
Adószám, Cégnév, beérkezés dátum, státusz, Postázás dátuma
Na most lehet olyan, hogy adott cég ugyanazon a napon 3 pályázatot ad be, az egyik még csak Beérkezett állapotú a másik meg Elfogadott a harmadik Javításra vár.. az ismétlődések törlésével szeretném ha egy cég csak egy sorba maradna. (Összesítve már a SZUMHATÖBB függvénnyel megoldottam), de fontos lenne, hogy pl ami Elfogadott az maradjon meg, mert sokszor az ismétlődések törlése pont azt a sort törli ami fontos lenne.. és ilyenkor pl a Beérkezett marad csak benne, független attól hogy mi van a Postázás dátumához írva.
Már szinte minden lehetőséget kipróbáltam és nem jövök rá, mi alapján törli az ismétlődéseket az excel.. hiába tettem már sorba őket első lépcsőbe adószám, majd második lécsőbe státusz alapján..
Ha lehet első körben macro nélkül szeretném megoldani. De minden javaslatot szívesen fogadok! (ja és Excel 2007-esben)
Köszönöm előre is segítséget!
[ Szerkesztve ]
-
Fferi50
őstag
válasz bela85 #44330 üzenetére
Szia!
Én úgy tapasztaltam, hogy a legelső előfordulást hagyja meg az ismétlődések törlése során.
Ezért célszerű előtte úgy rendezni, hogy az Elfogadott kerüljön előre.
Rendezésnél adhatsz meg egyéni sorrendet is (pl. Elfogadott - Javított - Beérkezett stb.)
Ezután a rendezés Adószám - státusz, majd utána az ismétlődések törlése.
Üdv. -
Delila_1
Topikgazda
válasz Fferi50 #44332 üzenetére
Ha már tapasztalat, és ismétlődések eltávolítása, megosztom egy rossz tapasztalatomat.
Pár napja egy 4000 soros, dátumokat tartalmazó oszlopnál merült fel egy súlyos probléma. Az egyedi értékek mellé SZUMHA függvényekkel két oszlop összegeit rendeltem az eredeti táblából. Az eredeti, és a képlettel kiszámolt összegek nem egyeztek meg.
Sok kínlódás után kiderült, hogy a kigyomlált oszlopban 2 dátum kétszer szerepelt.
Ezután az eredeti táblában az azonos dátumokat Ctrl+Enterrel vittem be, hogy azonosak legyenek. Az egyik párosnál sikerült, már csak egyszer szerepelt a kigyűjtöttben, de a másiknál nem. Annál 11 tétel volt az eredeti táblában.
Végül úgy oldottam meg, hogy DARABTELI függvénnyel a kigyűjtöttek mellé írattam az előfordulások számát, majd makróval eltüntettem a duplikációt.Lehet, hogy bizonyos számú ismétlődést nem tud kezelni a menüpont.
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
Fferi50
őstag
válasz Delila_1 #44334 üzenetére
Szia!
Hát, tapasztalataim szerint a dátum kezelése - legalábbis a magyar verzióban - nem erőssége az Excelnek sajnos. Persze belejátszik ebbe bizonyára az is, hogy az a fránya cella pont úgy néz ki, mintha dátum lenne, aztán pedig eszében sincs annak lenni.... De tény, hogy szűrőknél, feltételeknél hogy úgymondjam, roppantul észnél kell lenni dátumok esetében.
:-(
Üdv.
(Ps. vagy csak én nem tudom kezelni azokat rendesen.... ) -
-
Mutt
aktív tag
Sziasztok,
A másik fórumon felmerült egy probléma, amelynél egy "kódolt" szövegsorból kell számtartományokat előállítani.
A példa szerint a "30000000+34000000+341-34100099+348-341003+3401" karaktersort az alábbiak szerint kell értelmezni:
1. A számok 8 értékes jegy hosszúságú tartományokat jelölnek. Ahol mind a 8 karakter megvan ott a tartomány alsó és felső értéke azonos, a többi esetben pedig az tartomány kezdőértékét a megfelelő számú nullák hozzáadásával lehet elérni. A felső értéket pedig a megfelelő számú kilencesekekkel.
Így lesz a 341-ből 34100000 - 34199999 tartomány.
2. Ha a szám előtt minusz van, akkor az abból készült tartományt ki kell majd a végeredményből zárni. A többi esetben kell a tartomány.A feladat, hogy az így megadott kódsorból állítsuk elő a használható számtartományokat.
Ebben a feladatban lehet használni pár képességét a Power Query-nek:
1. A kódolt számsort fel lehet darabolni a +/- jelek alapján, hogy külön lehessen őket kezelni.
2. A nem 8 hosszúságú számokkból lehet alsó és felsőértéket előállítani a Text.PadEnd függvénnyel.
3. Lehet előállítani egy számsort adott két szám között a list operátorral (kapcsos zárójel).
4. Lekérdezések segítségével ki lehet zárni a nem kívánt számokat a végerdményből.
5. Lehet csoportosítgatni, hogy megkapjuk hogy mely számtartományokról van szó.
A nem tökéletes változat letölthető innen
Az eredmény nem hibás, csak lehetne jobban is összevonni a tartományokat illetve brute forceként minden számot létrehoz majd szűrőget, így lassú tud lenni nagy számok esetén.
üdv
A tanácsaimat ingyen adom. Ha nem tetszik, akkor kérlek ne kritizáld! / https://github.com/viszi/codes/tree/master/Excel
-
Pikkolo^^
addikt
-
Sprite75
tag
válasz Delila_1 #44343 üzenetére
Az új sor makró van modolba, a sorszámozós amit írtál az pedig a 2020 nevű lapon.
Így kellene lennie?Ha futtatom az új sor makrót akkor kapom ezt a hibát.
De csak abban az esetben ha a sorszámozósban a Target <> "" az egyik feltétel, ha ezt elhagyom akkor nincs ez a hiba.
Viszont működésileg jó lenne ha benne lenne a Target <> "" feltétel, mert ugye ha ez nincs benne akkor bármi kerül a Q uszlop valamelyik sorába (akár véletlenül egy betű szám helyett vagy egy Del gomb) már le is fut a sorszámozás, és ha ezt nem veszi észre aki majd használja akkor a sorzámok nem lesznek megfelelőek.Mivel én még mindíg nem vágom enniyre ezt a makró témát ezért fogalmam sincs, hogy miért van ez a hiba az új sor makró futtatásakor, de ezekre rájöttem amit fentebb írtam
Majdnem biztos vagyok benne, hogy az új sor makró sem tökéletes mert azt is én alakítottam ilyenre egy másik táblázatból kiszedve.
üdv
Gabi -
Fferi50
őstag
válasz Sprite75 #44344 üzenetére
Szia!
Ha megmutatnád az új sor makrót, talán könnyebben rájönnénk.
Most az a gyanúm, hogy nincs az eseménykezelés letiltva benne, ezért a beszúrás után fut(na) az eseménykezelő makród, de itt ugye nem egy cella változik, hanem egy egész sor, ezért nem tudja értelmezni az utolsó feltételt.
Az új sor makróba az elején be kellene szúrniApplication.EnableEvents=False
majd a végén pedigApplication.EnableEvents=True
Ezáltal a nem kívánt események nem indítanák el az eseményvezérelt makrókat.
Üdv.[ Szerkesztve ]
-
Sprite75
tag
válasz Fferi50 #44345 üzenetére
[link] Ez az.
Itt még nincsbenne a Application.EnableEvents=False / True amit irtál de volt már benne korábban sz is mer úgy is próbáltam már. Szintén másik táblázatban van ilyen Application.EnableEvents=False / True amiben régebben segítettetek, onnan jött az ötlet hogy kipróbáljam.
Viszont amikor tegnap próbáltam beletenni a Application.EnableEvents=False sort akkor a Dim után raktam be nem pedig elé.
Most beraktam elé és minden szuper
Erről írtam , hogy én csak "heggesztgetem" a makrókat ti pedig profi módon tudjátok, hogy mi mért vanNagyon köszönöm a segítséget .
Sub Újsor()
Application.EnableEvents = False
Dim usor As Long
usor = Range("C" & Rows.Count).End(xlUp).Row
ActiveSheet.Unprotect Password:="baromfi"
Rows(usor).Select
Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
ActiveSheet.Protect Password:="baromfi", DrawingObjects:=False, Contents:=True, Scenarios:= _
False, AllowFormattingCells:=True, AllowFormattingColumns:=True, _
AllowSorting:=True, AllowFiltering:=True, AllowUsingPivotTables:=True
Range("A" & usor).Select
Application.EnableEvents = True
End Sub
-
bela85
aktív tag
Egy újabb kérdés.. mivel makróban nem vagyok teljesen otthon...
Adott egy excelben levő nyomtatvány a munka1 lapon.. a B3 mezőbe szeretném a nevet írni, de úgy, hogy makróval a másik lapról a B2-tól ameddig van töltve az oszlop.
Makrórögzítővel elkezdtem (mivel leprogramozni nem tudom), frankón működik, de kéne bele egy for ciklus ami végigmegy a munka2 lap B2 cellájrától, hogy meddig van töltve a B oszlop.. és ismétli a makrot.
Tudna valaki segíteni benne?
Köszönöm előre is!
Sheets("Munka1").Select
Range("B3").Select
Selection.ClearContents
Sheets("Munka2").Select
Range("B2").Select
Selection.Copy
Sheets("Munka1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
ActiveWindow.SelectedSheets.PrintOut Copies:=1
Sheets("Munka1").Select
Range("B3").Select
Selection.ClearContents
Sheets("Munka2").Select
Range("B3").Select
Selection.Copy
Sheets("Munka1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
ActiveWindow.SelectedSheets.PrintOut Copies:=1[ Szerkesztve ]
-
Delila_1
Topikgazda
válasz bela85 #44348 üzenetére
Modulba tedd a makrót.
Sub Nyomtatas()
Dim sor As Long
sor = 2
Sheets("Munka1").Select
With Sheets("Munka2")
Do While .Range("B" & sor) <> ""
Sheets("Munka1").Range("B3") = .Range("B" & sor)
ActiveWindow.SelectedSheets.PrintOut Copies:=1
sor = sor + 1
Loop
End With
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.
-
bela85
aktív tag
válasz Delila_1 #44349 üzenetére
Oké! Szuper! Köszönöm!!
De amit nem látok ebben, és a saját makrórögzítővel készített kódban igen, hogy nekem fontos, hogy a munka1 lapon a B3 cellában levő adatot mindig törölje és irányított beillesztés értékkel tegye oda a munka2 lapról az adatot.
Hiába egyszer neki kéne állnom tényleg megtanulni ezt a makró programozást, mert sokszor hasznát venném.
[ Szerkesztve ]