- gban: Ingyen kellene, de tegnapra
- sziku69: Szólánc.
- ubyegon2: Airfryer XL XXL forrólevegős sütő gyakorlati tanácsok, ötletek, receptek
- sziku69: Fűzzük össze a szavakat :)
- D1Rect: Nagy "hülyétkapokazapróktól" topik
- Geri Bátyó: Agglegénykonyha 3 – Paradicsomos káposzta (amit amúgy utálok)
- Luck Dragon: Asszociációs játék. :)
- ldave: New Game Blitz - 2025
- sh4d0w: Vigyázz a háttértáradra...
- Magga: PLEX: multimédia az egész lakásban
-
LOGOUT
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
-
Delila_1
veterán
Kevés változtatással:
Sub Laptorles()
Dim lap As Integer
Application.DisplayAlerts = False
For lap = Sheets.Count To 1 Step -1
If Sheets(lap).Name <> "sorsolás" And Sheets(lap).Name <> "összesítő" Then
Sheets(lap).Delete
End If
Next
Application.DisplayAlerts = True
End SubFor-Next ciklusban a törléseket célszerű a tartomány végétől az elejéig végrehajtani. Ez főként sorok, oszlopok törlésére vonatkozik.
-
Attas
aktív tag
Szia! Még egy kis help kellene. Olyan makró kellene ami a munkafüzetben a sorsolás és összesítő nevü lapokon kívül minden más lapot kitöröl. a törlésre kerülő lapok száma változó, de a nevük a hónapok nevei. legjobb esetben 12 lapról van szó. Megoldható lenne? Vagy ha ezen lapok nevei így kezdődn, hogy 1 Január; 2 Február..stb akkor ez működne?
Private Sub CommandButton1_Click()
start_sheets = 1
Sheets(start_sheets).Select
Application.DisplayAlerts = False
For i = start_sheets To Sheets.Count
ActiveSheet.Delete
Next i
Application.DisplayAlerts = True
End SubDe szebb lenne, ha nem kellene számozni a hónapokat.
Köszönöm előre is!!!
-
Delila_1
veterán
Sub Valami()
Dim sor As Integer, sor1, WS2 As Worksheet, WF As WorksheetFunction
Set WS2 = Worksheets("Munka2")
Set WF = Application.WorksheetFunction
Sheets("Munka1").Select
For sor = 10 To 13
sor1 = 0
On Error Resume Next
sor1 = WF.Match(Cells(sor, "N"), WS2.Columns("N"), 0)
WS2.Cells(sor1, "O") = WS2.Cells(sor1, "O") + Cells(sor, "O")
Next
End Sub -
Mittu88
senior tag
-
Attas
aktív tag
Üdv! Elakadtam.. Nagyon. 2 feladatban kellene segítség.
1: Van egy munka1 lap aminek N10; N11 ;N12; N13 cellájában nevek vannak : Géza, Peti, Feri, Csaba,
Az, hogy melyik név melyik cellába kerül, minden alkalommal más és más. Rendszertelen. A mellettük lévő cellákba (M10; M11; M12; M13) alkalmanként számok kerülnek. Egy olyan makrót szeretnék, ami ezen számokat a lefutásakor, hozzá adja a munka2 lap található ugyan ezen nevek melletti cellájához. De itt a nevek sorrendje nem változhat, és ezen értékekhez mindig hozzáadja a makró lefutása az munka1 lapon említett számokat a nevekhez párosítva.opsz... a másikat megoldottam...
Köszönöm előre is
-
Delila_1
veterán
válasz
bagira82 #21788 üzenetére
Sub diagram()
a = "Anna": b = "Józsi": c = "Emil": d = "Tamás"
aa = 100: bb = 120: cc = 140: dd = 200
tengely = Array(a, b, c, d)
ertekek = Array(aa, bb, cc, dd)
ActiveSheet.Shapes.AddChart.Select
With ActiveChart
.ChartType = xl3DPieExploded
.SeriesCollection.NewSeries
With .SeriesCollection(1)
.Name = "='Munka5'!$B$1"
.Values = ertekek
.XValues = tengely
.ApplyDataLabels
End With
End With
End Sub -
bagira82
csendes tag
-
Delila_1
veterán
válasz
bagira82 #21784 üzenetére
Sub diagram()
ertekek = Array(103, 405, 349, 532)
tengely = Array("Anna", "Teri", "Emil", "Ida")
ActiveSheet.Shapes.AddChart.Select
With ActiveChart
.ChartType = xl3DPieExploded
.SeriesCollection.NewSeries
With .SeriesCollection(1)
.Name = "='Munka5'!$B$1"
.Values = ertekek
.XValues = tengely
.ApplyDataLabels
End With
End With
End Sub -
bagira82
csendes tag
Sziasztok!
Excel makró írásban szeretném a segítségeteket kérni.
Négy integer típusú változóban lévő egész számokat szeretnék kördiagramban ábrázolni.
Mivel nem vagyok excel expert, ezért makró rögzítéssel próbáltam elindulni, hogy mégis milyen parancsok kellenek (ezt láthatjátok lentébb)A kérdésem pedig az lenne, hogy hogyan tudok az ActiveChart.SeriesCollection(1).Values függvény után változókat megadni, ha egyáltalán meg lehet ezt így oldani. Ha van más ötlet, azt is szívesen veszem
.
ActiveSheet.Shapes.AddChart.Select
ActiveChart.ChartType = xl3DPieExploded
ActiveChart.SeriesCollection.NewSeries
ActiveChart.SeriesCollection(1).Name = "='Munka5'!$B$1"
ActiveChart.SeriesCollection(1).Values = "='Munka5'!$B$2:$B$7" 'itt szeretnék változókban tárolt számokat megadni
ActiveChart.SeriesCollection(1).XValues = "='Munka5'!$A$2:$A$7" ' itt pedig tengelyfeliratotkat szeretnék szövegesen megdani
ActiveChart.SeriesCollection(1).Select
ActiveChart.SeriesCollection(1).ApplyDataLabelsKöszi szépen előre is!
Üdv
Jani -
Mittu88
senior tag
válasz
Mittu88 #21782 üzenetére
Egy ilyennel nagyjából meg lehet, de hogy klikkelésre dobja a sorrendet, azt nem tudom hogy lehet makró nélkül. Ez perpill. akármilyen cellamódosítás hatására újragenerálja a véletlen számokat, kivéve, ha ki van véve excelből az automatikus újraszámolás (99,9%-nál nincs kivéve).
-
Mittu88
senior tag
válasz
dellfanboy #21779 üzenetére
Így mennie kell.
-
dellfanboy
őstag
az normális, hogy az fkeres nálam nem működik
van egy ilyen táblám:id árú
1 a
2 b
2 b
1 a
1 a
1 a
1 a
1 a
2 b
2 b
3 c
5 d
4 tpróbáltam pivotba kiforgadtni de mivel az árú szöveg ezért nem tudtam.
és mivel ha fkeressel rákeresek 1-re nem ad értéket csak megszámolja hány 1-es id mellé van...
egy olyat szeretnék látni hogy
id árú
1 a
2 b
3 c(ja és persze az id nem 1 számjegyű hanem 10, és az árú oszlop mint szöveg 30 karaktert tartalmazhat..)
-
Attas
aktív tag
Sziasztok!
Segítséget szeretnék kérni tőletek! Egy olyan makróra lenne szükségem, ami egy "sorsolás" nevű gomb megnyomására, 4 nevet véletlen szerűen beszámoz 1-4 ig. Vagy fordítva is jó, hogy van A2; B2; C2; D2 cella és egy klikkre véletlen szerűen beírja ide a 4, előre definiált nevet. Előre is köszönöm a segedelmet!!! -
Mittu88
senior tag
Sziasztok!
Ebben a fájlban kellene VBA kódbeli segítség. A feladat, hogy ha valaki változtat valamely cella tartalmán a Munka1 lapon, akkor a Munka3 lap ugyanazon cellájának a tartalmát valahova lementse az excel úgy, hogy a fájl bezárásakor e-mailben xy emailcímre továbbítsa a változásokat úgy, hogy a módosított cellához tartozó nevet(ugyanazon sor 1-es cella) és napot(ugyanazon oszlop 1-es és 2-es cella) is tartalmazza, ne csak azt, hogy mire módosította (esetleg miről módosította is, de ez opcionális).
Itt a jelenlegi fájl:
http://data.hu/get/7735295/szabadsagterv_management.xlsmNagyon meg vagyok akadva és minden segítség jól jönne. Előre is köszönöm szépen
-
slashing
senior tag
Delila_1
A névkezelőben van egy olyan hogy Kigyűjtés, érték nincs megadva, hivatkozásnak =Kritikus!$j$1 van definiálva és a hatóköre is kritikus.
Nekem ebbe a cellába egy másik adat lesz/van, nem is vettem észre semmilyen hibát a működésben, elképzelhető hogy ez csak bent maradt véletlenül vagy van tényleges funkciója is? A szerszám makróban van egy J1-es hivatkozás de az biztos hogy a segédtáblára vonatkozik.
-
Delila_1
veterán
válasz
slashing #21771 üzenetére
Volt egy bibije, kijavítottam.
Bizonyos esetekben a szerszámok közül az érvényesítés csak az utoljára kiválasztottat adta. -
Delila_1
veterán
válasz
marchello1 #21770 üzenetére
Szívesen.
-
vigyori78
őstag
Sziasztok.
Azt hogyan tudnám letiltani egy táblázatban / közös / ,hogy a cella sarkát megfogva ne lehessen húzni,másolni.
Köszi.Illetve olyat lehet,hogy egy cellára kattintva ne jelenjen meg a jobb egér művelet vagy csak a másolás ne jelenjen meg?
-
akyyy
senior tag
lehetséges valahogy megcsinálni egy excel táblázatot úgy, hogy egyes cellák adatait monjduk egy google formból olvasna be?
ugye van ez a google kérdőíves form. amit bárki kitölthet. ennek eredményeit olvasná be nekem az excel, folyamatos frissítésel mikor megnyitom stb.
-
Delila_1
veterán
válasz
marchello1 #21765 üzenetére
Az A4:A33 tartomány feltételes formázásának a képlete
=HÓNAP(A4)>HÓNAP(A$3), ehhez fehér karakterszínt rendelj, és add meg a többi oszlopra is. Fontos a $ jel a hármas előtt!
-
marchello1
csendes tag
Sziasztok,
Rosszul töltöttem fel a múltkor
Itt az új file: [link]A gondom az, hogy a május kivételével, minden hónap egymásba csúszik. Erre esetleg valakinek ötlete van, hogyan lehetne megoldani?
Előre is köszi
-
Delila_1
veterán
válasz
Zola007 #21755 üzenetére
Írtam hozzá egy felhasználói függvényt.
Function Osszegszer(osszeg As String, szorzo)
kk = Split(osszeg, ", ")
For i = 0 To UBound(kk)
osszeadando = osszeadando + kk(i) * 1
Next
szorzat = osszeadando * szorzo
Osszegszer = szorzat
End FunctionA makrót bemásolod a füzetedbe egy új modulba (a VB szerkesztőben).
A példád szerint a füzetben így adod meg: =Osszegszer(A10;B10)A zárójelben az első paraméter annak a cellának a címe, amiben a számok vannak vesszővel és szóközzel elválasztva, a második a szorzót tartalmazó cella címe.
-
Delila_1
veterán
válasz
slashing #21754 üzenetére
Feltöltöttem a fájlt ide. Mese a fájlban.
-
slashing
senior tag
válasz
Delila_1 #21753 üzenetére
Köszi, ment egy privát.
A kérdésem másik felére találtam egy megoldást. Adott cellába csak adott dátumot vagy karakter stb.... lehessen megadni:
Adatok/érvényesítés
Itt a megengedve résznél lehet kiválasztani hogy mit akarunk. Az egyéninél lehet képlettel is dolgozni, nagyon jó. Lehet megadni hibaüzenet is ha rosszul írják be az adatot ill. automatikus üzenetet ha ráállnak a cellára.
-
Delila_1
veterán
válasz
slashing #21752 üzenetére
Nem értettelek félre, csak javasoltam egy egyszerű megoldást, amit autoszűrővel hajthatsz végre.
Irányított szűrővel is megkaphatnád az eredményt, de ahhoz is minden sorban kellene szerepelnie a sorszámnak. Az Excel módot ad a cellák összevonására, de sok esetben – mint a példádban is – nem tudja helyesen kezelni.Átlátható marad a táblázatod, ha ügyesen adsz feltételes formázást. Az A3 cellától lefelé kell kijelölnöd az A oszlopban kitöltött tartományt, miután megszüntetted a cellák összevonását.
Az egyik képlet a formátumban =A3=A2, itt a karakter színét kell beállítanod a háttér színére, a feltett kép szerint fehérre.
A másik képlet =A3<>A2, ennél egy felső szegélyt kell beállítanod..
A B:C tartomány legyen kívül-belül szegélyezve. Az A oszlop hátterét fehérre állítva a cellarácsok sem zavarják a képet, de a beállításoknál is megszüntetheted a cellarácsok megjelenítését.
Ilyen lesz:
-
slashing
senior tag
válasz
Delila_1 #21732 üzenetére
Lehet félreérthető voltam, szóval nekem nem szűrésre van szükségem hanem egy fkeres-re ami a segédtáblában megkeresi a sorszámhoz tartozó termékszámot majd annak a nevét. Ezzel nem is lenne gond ha egy sorszám alatt csak egy termékszám/terméknév lenne de mint látod a 3-as sorszám-hoz 3 termék kapcsolódik de ha fkeres-et használok akkor nem tudom kiválasztani pl. a piros pólót mert az fkeres az első találatod adja majd mindig így oda kéne egy legördülő lista ha több termék kapcsolódik egy sorszámhoz.
Az összevonás csak a jobb átláthatóság miatt lett a példában összevonva azzal nem lesz gond.
-
-
JoDy_28
csendes tag
Sziasztok!
Valakinek van otlete, hogy lehet beirni excelbe ezt a kepletet:
-
Delila_1
veterán
Egy halom idézőjelet tettél bele feleslegesen, és a $-t kihagytad.
Jelöld ki az A2:F4 területet. A formázás képlete: =$E2="nem"
Add meg a formátumot, és kész. Új szabály, ugyanez a képlet, csak a "nem" helyére "igen" jön, és a háttér zöld.A további sorokra a formátumfestő ecsettel másolhatod a formátumot, vagy a feltételes formázás | Szabályok kezelése ablakában egyszerűen átírod az érvényességet a teljes területedre.
-
fess
őstag
válasz
Delila_1 #21745 üzenetére
idáig sikerült eljutnom. Azt akarom,hogyha nem-et választok akkor az egész sor piros legyen,ha igent akkor meg zöld. mit kell ehhez beírnom?
-
Delila_1
veterán
válasz
Gabcsika #21735 üzenetére
Feltöltöttem az átírt makróval a füzetedet ide.
Igaz, ahogy itt írtam, a lapnevek kijavításával helyre rázódott volna a lelke, de most egy-egy oldalnyi adat átmásolása után üzenetet kapsz a nyomtatásra.
Az F1 cella tartja számon a Munka1 lapon, hogy hol tartasz a másolással és nyomtatással, azt ne töröld ki. Mikor mindent kinyomtattál, akkor vált át üres stringre.
-
Delila_1
veterán
Érvényesítésben add meg a két választható elemet.
A feltételes formázásnál erre a cellára kell hivatkoznod. Ha pl. a B oszlopban van az érvényesítés, az adatok meg A2-től Q1000-ig, akkor kijelölöd a teljes területet. A feltételes formázáshoz 2 képletet vigyél be.
=$B2="igen" és =$B2="nem". A két képlethez külön add meg a két háttérszínt. Fontos a $ jel az érvényesítést tartalmazó oszlop betűjele előtt. -
-
Zola007
veterán
Hogyan tudnám megoldani - ha lehetséges - hogy egy cellában több érték szerepeljen, de egy másik cellával vagy egyéb matematikai műveletekkel lehessen használni?
pl:
A10= 10, 15, 20, 25, 30
B10= 5
C10= A10*B10 -
Melack
veterán
Sziasztok! Hogy lehet úgy felindítani az excelt, hogy ne egy ablakban, hanem mindig külön-külön nyissa meg a táblákat? Win7 64bit Office 2010 kombó. Előre is köszönöm a segítséget!
-
fess
őstag
sziasztok
Excel-ben hogyan lehet létrehozni igen/nem cellát? (office 2013) MS Súgó segítségével nem találom.
Azt meglehet egyszerűen oldani,hogy annak megfelelően hogy igent vagy nemet választok az egész sor beszíneződik az előre beállított igen/nem színre? -
Gabcsika
tag
-
Delila_1
veterán
válasz
ritterkrisz #21729 üzenetére
Másik megoldás, hogy felveszel ideiglenes egy segédoszlopot, ahol a képlet
="product/" & D2
Ezt végig másolod. Kijelölöd a képletet tartalmazó cellákat, Ctrl+c-vel másolod, beállsz a D2 cellába, jobb klikk, Irányított beillesztés, Értéket. A segédoszlopot törölheted.
-
Delila_1
veterán
válasz
slashing #21728 üzenetére
Meg kell szüntetned az összevonásokat az A oszlopban, mert emiatt nem tudsz autoszűrővel szűrni. Nézz el ide. Ezután már nincs szükség az I:K celláira, helyben tudsz szűrni.
Hogy ne legyenek zavaróak az A oszlop ismétlődő adatai, az A3 cellától lefelé vigyél be feltételes formázást. A képlete =A3=A2, és a karakter színének add meg a cellák háttérszínét.
A feltételes formázás első egyenlőségjelét HA szóként kell értelmezni. Itt: ha az aktuális cella tartalma megegyezik a fölötte lévővel, akkor jöhet a formázás.
-
slashing
senior tag
válasz
ritterkrisz #21729 üzenetére
Ha minden hol mentővel kezdődik a szöveg akkor kijelölöd a D oszlopot crtl+f aztán csere opció és az 'm' betűt kicserélteted 'product/m' -re
de ha van olyan hogy mentők-menhely/0051001-1.jpg akkor ne csak m-et adj meg cserélendőnek hanem mondjuk 'ment'-et mert ha nem akkor kicseréli a menhelynél is. Úgyhogy óvatosan...
jah és összes cseréje...
-
ritterkrisz
tag
Sziasztok
A képen látható táblázatban szernék olyat csinálni, hogy a D oszlopban lévő termék kép sorok elé szeretnék beszúrni valamit.
Példa:
8. sor termék kép oszlop jelenleg: mentő/005120-4.jpg, de ezt szeretném product/mentő/005120-4.jpg és így tovább 5000 soron keresztül.
Lehet egyáltalán ilyet?
Egyesével kellemetlen lenne átírni
-
slashing
senior tag
Üdv
Egy olyan fkeres szerű függvényt vagy az fkerest kiegészítő függvényt keresek ami az alább látható képen a segédtáblából veszi az adatokat, úgy hogy ha z I3 cellába beírom azt hogy 3 akkor a J3 cellában ki tudjam választani a termékszámot mondjuk egy legördülő listából ami után a K3-ba bekerül a terméknév. (excel 2013)
Nem pont ilyen lesz a végeredményem de így tudtam a legegyszerűbben megmutatni mire is lenne szükségem.
Illetve egy másik kérdés ha egy cellába csak egyféleképpen szeretném hogy adatokat írjanak azt hogyan lehet megoldai pl. a dátumnál ne lehessen két vesszővel írni a dátumot egy pont helyett vagy véletlenül belegépelni egy betűt pl.: 2014é.05.15.
Előre is köszi
-
KERO_SAN
aktív tag
Talán így már érthető lesz.
Szóval havi bontásban kell összegezni az első tábla 2. oszlopának értékeit.
És valójában arra lenne szükségem hogy a szűrést ne kelljen manuálisan elvégezni.
-
Delila_1
veterán
válasz
KERO_SAN #21719 üzenetére
Tényleg nem egészen világos, mit szeretnél. Nem tudom, mitől függ, hogy a 2. táblázatban melyik az a bizonyos n-edik sor.
Szerintem az 1. táblázathoz vegyél fel egy új oszlopot, ami a dátumok hónapját adja a
=HÓNAP(A2) függvénnyel. Akkor egyszerű a szűrés ebben az új oszlopban. -
KERO_SAN
aktív tag
Igen, ezt csináltam idáig is.. Csak úgy néz ki, nem bírom elmondani rendesen mit akarok
Szóval, arra lenne szükség, hogy dinamikusan szűrjön, és a szűrési feltétel mindíg a 2. táblázat A oszlopának n-edik sora.
Egyébiránt köszönöm a segítséged kedves Delila.
-
PistiSan
addikt
Excelben lehet olyat, hogy mondjuk egy cellába elhelyezek egy hivatkozást egy fájlra?
PL:
A1 tartalma:
101.pdfszeretnék olyat, ha rá kattintok az "A1" re, akkor nyissa meg a fájt.
Van egy mappám tele ilyen fájlokkal, mindegyiknek egyedi a neve, excelben sorba raknám őket, szűrném stb, majd a végén ha érdekel a fáj tartalma akkor rá kattintok.
-
Delila_1
veterán
válasz
KERO_SAN #21716 üzenetére
Szűröd az A oszlopot. A táblázaton kívül egy üres cellába, pl. a Z1-be (ha az üres), beírod a függvényt.
=RÉSZÖSSZEG(9;B:B)
A másik lapra, ahol a mindenkori részösszeget akarod megjeleníteni, ennyit írsz: =Munka1!Z1
Természetesen a Munka1 helyett a saját lapod nevét írd be. -
KERO_SAN
aktív tag
válasz
Delila_1 #21715 üzenetére
Nem teljesen értem, amire gondolsz...
A lényeg, hogy szeretném ha egy dinamikus érték szerepeljen a célcellában, és ne kelljen újra meg újra rászűrnöm a táblára, majd újra beállítani a summázandó tartományt, ha netán új sorral bővül az eredeti tábla.
Kicsit átfogalmaztam:
Van 2 táblám. A 2. tábla A oszlopa dátumokat tartalmaz (éééé.hh.) A B ( szám ) oszlopba egy olyan összeg kerül, ami az 1. tábla X ( szám ) oszlopainak összege, ahol soronkent Y( éééé.hh ) oszlop = A ( éééé.hh ) .
Tehát ha egyel több Y = A sorom van akkor egyel több X értéket adok hozzá a B számhoz stb...
-
KERO_SAN
aktív tag
Sziasztok!
Segítségre lenne szükségem az alábbi probléma megoldásában:
Adott egy tábla, aminek egy oszlopa dátumokat tartalmaz. Erre szeretnék rászűrni, hogy csak egy adott hónapban történt eseménysorozat sorait mutassa. A szűrés utáni táblának egy oszlopát pedig summázni szeretném, és ennek az eredménynek kéne átkerülnie egy új lapon lévő táblába.
Köszi szépen előre is.
-
Delila_1
veterán
válasz
Gabcsika #21708 üzenetére
Itt a manuális nyomtatáshoz a makró, bár nálam hiba nélkül végrehajt mindent.
Sub Nyomtat()
Dim sor1 As Long, sor2 As Long
Sheets("Sheet2").Cells.ClearContents
Sheets("Sheet1").Select
If Range("V1") = "" Then Range("V1") = 2
sor1 = Range("V1"): sor2 = 1
Do While sor2 <= 66
Range("A" & sor1 & ":C" & sor1 + 4).Copy
Sheets("Sheet2").Range("A" & sor2).PasteSpecial Paste:=xlPasteValues, Transpose:=True
sor1 = sor1 + 5
sor2 = sor2 + 3
Loop
Range("V1") = sor1
Sheets("Sheet2").Select
MsgBox "Nyomtass"
If Application.CountA(Sheets("Sheet1").Columns(1)) < sor1 Then _
Sheets("Sheet1").Range("V1") = ""
End Sub -
pentium4
senior tag
hali
egy kis help kéne:
egy egy cella amibe egy képlet: pl: A1*B5, ennek az értéke mondjuk 200 és ezis jelenik meg a cellába, és azt szeretném megoldani hogy simán értékké varázsolni ugyanezt a cellát, vagyis ha rámész a cellára nem a képletet fogod látni tartalomnak hanem azt hogy 200 van beleirva!
kösziP4
-
-
Delila_1
veterán
válasz
atillaahun #21703 üzenetére
Igen, a csere funkcióval, minden ékezetesre külön.
-
-
Gabcsika
tag
válasz
Delila_1 #21702 üzenetére
Így nézek ki:
Sub Nyomtat()
Dim sor1 As Long, sor2 As Long
Sheets("Sheet1").Selectsor1 = 2: sor2 = 1
Do While Cells(sor1, "A") <> ""
Range("A" & sor1 & "" & sor1 + 4).Copy
Sheets("Sheet2").Range("A" & sor2).PasteSpecial Paste:=xlPasteValues, Transpose:=True
sor1 = sor1 + 5
If sor2 >= 63 Then
Sheets("Sheet2").Select
Sub Nyomtat()
'
' Nyomtat Makró
' Printing
'
' Billentyűparancs: Ctrl+k
'
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
IgnorePrintAreas:=False
End Sub
Cells.ClearContents
Sheets("Sheet1").Select
sor2 = 1
Else: sor2 = sor2 + 3
End If
Loop
If Sheets("Sheet2").Range("A1") > "" Then
Sheets("Sheet2").Select
Sub Nyomtat()
'
' Nyomtat Makró
' Printing
'
' Billentyűparancs: Ctrl+k
'
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
IgnorePrintAreas:=False
End Sub
Cells.ClearContents
Sheets("Sheet1").Select
End If
End Sub -
atillaahun
veterán
Sziasztok,
ékezetes karakterek ékezet-mentesítésére van lehetőség?
Új hozzászólás Aktív témák
- 27%-OS ÁFÁS SZÁMLA I Jogtiszta Microsoft digitális és fizikai termékek I DIGITALKEYZ.COM
- Játékkulcsok olcsón: Steam, Uplay, GoG, Origin, Xbox, PS stb.
- Windows 10 11 Pro Office 19 21 Pro Plus Retail kulcs 1 PC Mac AKCIÓ! Automatikus 0-24
- ROBUX ÁRON ALUL - VÁSÁROLJ ROBLOX ROBUXOT MÉG MA, ELKÉPESZTŐ KEDVEZMÉNNYEL (Bármilyen platformra)
- Bitdefender Total Security 3év/3eszköz! - Tökéletes védelem, Most kedvező áron!
- Bomba ár! Lenovo ThinkPad X260 - i5-6G I 8GB I 256GB SSD I 12,5" HD I HDMI I CAM I W10 I Gari!
- Azonnali készpénzes Microsoft XBOX Series S és Series X felvásárlás személyesen/csomagküldéssel
- HP EliteBook 830 G8 i5-1135G7 16GB 256GB 1 év garancia
- PS Plus előfizetések kedvező áron
- PlayStation Network (PSN) ajándékkártyák, feltöltőkártyák áron alul!
Állásajánlatok
Cég: CAMERA-PRO Hungary Kft.
Város: Budapest