Új hozzászólás Aktív témák

• #42365 logitechh csendes tag Delila_1 #42351

  Új Válasz 2019-12-03 21:54:10 #42365

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  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