-
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
-
logitechh
csendes tag
válasz Delila_1 #42351 üzenetére
Kipróbálom majd de az a baj, hogy az eredeti munkafüzetből van 15 mindegyik ugyanúgy néz ki. arról kijelölünk egy tartományt A1:M12 mindig ugyan ezt a területet.
Majd a cél munkafüzetben mindig máshová(egymástól 15 sorral eltolva illesztjük be a kimásolt tartományt.
Attól füg melyik "telephelyről" jön a saját kis összesítő oda másolja majd be a felhasználó. Nem akartam hivatkozással megcsinálni. Van akinek 3 van akinek 13 van akinek 6 helyről jön adat ő csak annyi részbe másol.Sub Beilleszt1()
'
' Makró5 Makró
'
Range("C1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End Sub
Sub Beilleszt2()
'
' Makró6 Makró
'
'
Range("C15").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End Sub
Sub Beilleszt3()
'
' Makró6 Makró
'
'
Range("C29").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End Sub
Sub Beilleszt4()
'
' Makró6 Makró
'
'
Range("C43").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End Sub
Sub Beilleszt5()
'
' Makró6 Makró
'
'
Range("C57").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End Sub
Sub Beilleszt6()
'
' Makró6 Makró
'
'
Range("C71").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End Sub
Sub Beilleszt7()
'
' Makró6 Makró
'
'
Range("C85").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End Sub
Sub Beilleszt8()
'
' Makró6 Makró
'
'
Range("C99").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End Sub
Sub Beilleszt9()
'
' Makró6 Makró
'
'
Range("C113").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End Sub
Sub Beilleszt10()
'
' Makró6 Makró
'
'
Range("C127").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End Sub
Sub Beilleszt11()
'
' Makró6 Makró
'
'
Range("C141").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End Sub
Sub Beilleszt12()
'
' Makró6 Makró
'
'
Range("C155").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End Sub
Sub Beilleszt13()
'
' Makró6 Makró
'
'
Range("C169").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End Sub
Sub Beilleszt14()
'
' Makró6 Makró
'
'
Range("C183").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End Sub
Sub Beilleszt15()
'
' Makró6 Makró
'
'
Range("C197").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End Sub
Sub Torol1()
'
' Makró7 Makró
'
'
Range("D2:O5,D9:O12").Select
Range("D9").Activate
Selection.ClearContents
End Sub
Sub Torol2()
'
' Makró7 Makró
'
'
Range("D16:O19,D23:O26").Select
Range("D23").Activate
Selection.ClearContents
End Sub
Sub Torol3()
'
' Makró7 Makró
'
'
Range("D30:O33,D37:O40").Select
Range("D37").Activate
Selection.ClearContents
End Sub
Sub Torol4()
'
' Makró7 Makró
'
'
Range("D44:O47,D51:O54").Select
Range("D51").Activate
Selection.ClearContents
End Sub
Sub Torol5()
'
' Makró7 Makró
'
'
Range("D58:O61,D65:O68").Select
Range("D65").Activate
Selection.ClearContents
End Sub
Sub Torol6()
'
' Makró7 Makró
'
'
Range("D72:O75,D79:O82").Select
Range("D79").Activate
Selection.ClearContents
End Sub
Sub Torol7()
'
' Makró7 Makró
'
'
Range("D86:O89,D93:O96").Select
Range("D93").Activate
Selection.ClearContents
End Sub
Sub Torol8()
'
' Makró7 Makró
'
'
Range("D100:O103,D107:O110").Select
Range("D107").Activate
Selection.ClearContents
End Sub
Sub Torol9()
'
' Makró7 Makró
'
'
Range("D114:O117,D121:O124").Select
Range("D121").Activate
Selection.ClearContents
End Sub
Sub Torol10()
'
' Makró7 Makró
'
'
Range("D128:O131,D135:O138").Select
Range("D135").Activate
Selection.ClearContents
End Sub
Sub Torol11()
'
' Makró7 Makró
'
'
Range("D142:O145,D149:O152").Select
Range("D149").Activate
Selection.ClearContents
End Sub
Sub Torol12()
'
' Makró7 Makró
'
'
Range("D156:O159,D163:O166").Select
Range("D163").Activate
Selection.ClearContents
End Sub
Sub Torol13()
'
' Makró7 Makró
'
'
Range("D170:O173,D177:O180").Select
Range("D177").Activate
Selection.ClearContents
End Sub
Sub Torol14()
'
' Makró7 Makró
'
'
Range("D184:O187,D191:O194").Select
Range("D191").Activate
Selection.ClearContents
End Sub
Sub Torol15()
'
' Makró7 Makró
'
'
Range("D198:O201,D205:O208").Select
Range("D205").Activate
Selection.ClearContents
End Sub
Sub TorolMindent()
'
' Makró8 Makró
'
'
Range("D2:O208").Select
Selection.ClearContents
End Sub
Új hozzászólás Aktív témák
- Samsung Galaxy S24 - nos, Exynos
- Gitáros topic
- Azonnali VGA-s kérdések órája
- A Keychron ismét egy űr betöltését vállalta magára az egerek szegmensében
- Renault, Dacia topik
- Konzolokról KULTURÁLT módon
- Windows 11
- Gyúrósok ide!
- Mikrokontrollerek Arduino környezetben (programozás, építés, tippek)
- AMD Ryzen 9 / 7 / 5 7***(X) "Zen 4" (AM5)
- További aktív témák...
- Microsoft licencek KIVÉTELES ÁRON AZONNAL - UTALÁSSAL IS AUTOMATIKUS KÉZBESÍTÉS - Windows és Office
- Magix Acid Pro 11 zenei szoftver
- AKCIÓ! - STEAM kulcsok /Anuchard, Aragami, Children of Morta, stb. - 2024.04.17.
- Játékkulcsok olcsón: Steam, Uplay, GoG, Origin, Xbox, PS stb.
- PC JÁTÉKOK (OLCSÓ STEAM, EA , UPLAY KULCSOK ÉS SOKMINDEN MÁS IS 100% GARANCIA )
Állásajánlatok
Cég: Ozeki Kft.
Város: Debrecen
Cég: Promenade Publishing House Kft.
Város: Budapest