Hogyan tudok "makrót" duplikálni?
az alább látható makró arra való, hogy az első munkalapba írt adatokat bemásolja a második munkalap bizonyos helyeire, hogy nyomtatható legyen egy előre megcsinált formanyomtatványra.Szeretném, ha ez a "másoló makró" ugyan ezeket az adatokat egy második munkalapba is betenné, hogy egy másik tipusú nyomtatót is tudjak használni.Hogyan tudom megcsinálni? segítségeteket előre is köszönöm!
Sub másol()
Dim WS2 As Worksheet
Dim usor As Integer
Set WS2 = Sheets("Szerződés")
usor = Cells(Rows.Count, "A").End(xlUp).Row
WS2.[J21] = Range("B" & usor)
WS2.[O24] = Range("C" & usor)
WS2.[K30] = Range("D" & usor)
WS2.[P30] = Range("E" & usor)
WS2.[AH30] = Range("F" & usor)
WS2.[P31] = Range("G" & usor)
WS2.[U31] = Range("H" & usor)
WS2.[AK31] = Range("I" & usor)
WS2.[P26] = Range("J" & usor)
WS2.[AP26] = Range("K" & usor)
WS2.[N28] = Range("L" & usor)
WS2.[P34] = Range("M" & usor)
WS2.[AN34] = Range("N" & usor)
WS2.[O36] = Range("O" & usor)
WS2.[M37] = Range("P" & usor)
WS2.[AI57] = Range("Q" & usor)
WS2.[AB59] = Range("S" & usor)
WS2.[S65] = Range("T" & usor)
WS2.[T67] = Range("U" & usor)
WS2.[BE6] = Range("V" & usor)
WS2.[AY10] = Range("W" & usor)
WS2.[AS51] = Range("W" & usor)
WS2.[BA13] = Range("X" & usor)
End Sub
válasza:Szia.
Akkor a következő változó deklarációkat a makró elejére fel kell venni, a következő sorok után ird :
Dim WS2 As Worksheet
Dim WS3 As Worksheet
Dim usor As Integer
Ezeket a sorokat :
Dim Utvonal As String
Dim TeljesFileNev As String
Dim UjFileNev As String
Sok sikert.
Üdv.
Szia, nagyon köszönöm! így már tökéletesn működik!
örök hálám, nagyon sokat segítettél!
helló újra! :)
ismét kis segítségre lenne szükségem az excellel táblával kapcsolatban.
azt szeretném megcsinálni hogy ha "A" cellába "60"-at írok, akkor "B" cellába autómatikusan "5"jelenjen meg. ha az "A" cellába "120"-at írok, akkor "6" jelenjen meg a "B" cellában és így tovább. tehát van 6 fix szám (60,120,180,240,300,360)amit ha beírok "A" cellába akkor "B" cellát automatikusan töltse ki az előre beírt fix értékkel (5,6,7,8,9,10)
segítséged előre is köszönöm.
utóiratkén hozzátenném, a makró amit írtál nekem, lebuktatta az illető hölgyet.
válasza:Szia.
Próbáld igy : =4+A1/60
Ahol A1-ben van a beirt szám (60,120,180,240,300,360).
Sok sikert.
Üdv.
Kapcsolódó kérdések:
Minden jog fenntartva © 2025, www.gyakorikerdesek.hu
GYIK | Szabályzat | Jogi nyilatkozat | Adatvédelem | Cookie beállítások | WebMinute Kft. | Facebook | Kapcsolat: info(kukac)gyakorikerdesek.hu
Ha kifogással szeretne élni valamely tartalommal kapcsolatban, kérjük jelezze e-mailes elérhetőségünkön!