Coller dans une gamme spécifique

Question

Regardez le code ci-dessous:

With Worksheets("L.NAM.M") 
     With .Cells.Find(What:="forecast_quarter", After:=ActiveCell, LookIn:= _ 
      xlFormulas, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:= _ 
      xlNext, MatchCase:=False, SearchFormat:=False) 
      .Parent.Range(.Offset(1), .Parent.Cells(Rows.Count, .Column).End(xlUp)).Copy _ 
      Destination:=Worksheets("NewForecast").Range("K" & Rows.Count).End(xlUp).Offset(1) 
     End With 
    End With 

With Worksheets("L.EMEA.O") 
    With .Cells.Find(What:="forecast_quarter", After:=ActiveCell, LookIn:= _ 
     xlFormulas, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:= _ 
     xlNext, MatchCase:=False, SearchFormat:=False) 
     .Parent.Range(.Offset(1), .Parent.Cells(Rows.Count, .Column).End(xlUp)).Copy Destination:=Worksheets("NewForecast").Range("K" & Rows.Count).End(xlUp).Offset(1) 
    End With 
End With 


     'Record Source 

     With Worksheets("L.EMEO.O") 
     With .Cells.Find(What:="Record Source", After:=ActiveCell, LookIn:= _ 
      xlFormulas, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:= _ 
      xlNext, MatchCase:=False, SearchFormat:=False) 
      .Parent.Range(.Offset(1), .Parent.Cells(Rows.Count, .Column).End(xlUp)).Copy Destination:=Worksheets("NewForecast").Range("N" & Rows.Count).End(xlUp).Offset(1) 
     End With 
    End With 

Ce que je fais here..I reçois forecast_quarter de données de ces deux feuilles de calcul et coller ci-dessous l'en-tête d'une nouvelle feuille de calcul . Donc, c'est trouver la lastrow avec des données et coller ci-dessous. La partie piège vient quand chercher la source d'enregistrement de "L.EMEA.O", comme le "L.NAM.M" n'a pas de données pour la colonne L, il fout en l'air quand je colle les données L.EMEA.O, car il ne s'aligne pas avec le L.EMEA.O mais avec L.NAM.O. Qu'est-ce que je voudrais est de coller aligné la ligne d'où il a collé le forecast_quarter pour L.EMEA.O.

Des idées? J'ATTACHE une photo

Dans ce cas, coller le texte dans le K114, si je lance l'autre morceau, je veux coller dans le même pas dans le N110, mais N114.

Answer 1

stocker l'index de ligne utilisé pour « L.EMEA.O » et l'utiliser pour « L.EMEO.O » ainsi:

With Worksheets("L.NAM.M") 
      With .Cells.Find(What:="forecast_quarter", After:=ActiveCell, LookIn:= _ 
       xlFormulas, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:= _ 
       xlNext, MatchCase:=False, SearchFormat:=False) 
       .Parent.Range(.Offset(1), .Parent.Cells(Rows.Count, .Column).End(xlUp)).Copy _ 
       Destination:=Worksheets("NewForecast").Range("K" & Rows.Count).End(xlUp).Offset(1) 
      End With 
     End With 

    Dim L_EMEA_ORow As Long '<--| variable to hold "forecast_quarter" sheet column "K" row index where to start pasting "L.EMEA.O" sheet data from 
    With Worksheets("L.EMEA.O") 
     With .Cells.Find(What:="forecast_quarter", After:=ActiveCell, LookIn:= _ 
      xlFormulas, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:= _ 
      xlNext, MatchCase:=False, SearchFormat:=False) 
      L_EMEA_ORow = Worksheets("NewForecast").Range("K" & Rows.Count).End(xlUp).Offset(1).Row '<--| store relevant row index where to start pasting data from 
      .Parent.Range(.Offset(1), .Parent.Cells(Rows.Count, .Column).End(xlUp)).Copy Destination:=Worksheets("NewForecast").Range("K" & L_EMEA_ORow) '<--| use relevant row index 
     End With 
    End With 


    'Record Source 

    With Worksheets("L.EMEO.O") 
     With .Cells.Find(What:="Record Source", After:=ActiveCell, LookIn:= _ 
      xlFormulas, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:= _ 
      xlNext, MatchCase:=False, SearchFormat:=False) 
      .Parent.Range(.Offset(1), .Parent.Cells(Rows.Count, .Column).End(xlUp)).Copy Destination:=Worksheets("NewForecast").Range("N" & L_EMEA_ORow) '<--| use same relevant row index calculated above 
     End With 
    End With