Prenez la date dans une feuille de calcul et trouver la même date dans une autre colonne de feuille de calcul et retourner la référence de cellule pour cette date à utiliser dans une boucle

Question

Dim wb Comme classeur Dim ws1 comme feuille de

Set ws1 = wb.Sheets (1)

Dim Lastrow_ws1 As long Lastrow_ws1 = ws1.Range ("A" & Rows.Count) .End (xlUp) .Row

Dim lASTDATE As long

Set LASTDATE = quelque chose « prendre la dernière date dans la colonne A et ws3 trouver cette date dans la colonne A et ws1 trouver le retour de la référence de la cellule

Pour y = LASTDATE Pour LastRow

ws1.Cells (y, .. "A") Copie de ws2.Range ("A1") PasteSpecial Coller: = xlPasteValues ​​

Calculer

« RUN alors dans une boucle SEPERATE UTILISATION dE LA VARIABLE LASTDATE

Answer 1

Je peux vous aider o Mais, vous aurez besoin d'être un peu plus clair sur la question, et la mise en forme de votre question, vous devez également généralement être précis quant à votre problème. Vous pouvez utiliser quelque chose comme this pour commencer à formater votre code. Pour commencer, définissez wb avec Dim wb As Workbook, mais vous ne définissez rien. Je pourrais suggérer Set wb = ActiveWorkbook avant d'appeler avec Set ws1 = wb.Sheets(1)

Difficile à dire à partir de votre code, mais Dim Lastrow_ws1 As Long Lastrow_ws1 = ws1.Range("A" & Rows.Count).End(xlUp).Row devrait idéalement être dans les différentes lignes:

Dim Lastrow_ws1 As Long 
Lastrow_ws1 = ws1.Range("A" & Rows.Count).End(xlUp).Row 

Maintenant, où vous vous aventurez en code pseudo: Set LastDate = something 'take the last date in ws3 column A and find that date in ws1 column A and find the return the cell reference

Vous devez définir ws3 il n'est mentionné nulle part.

Dans cette ligne ws1.Cells(y, "A").Copy ws2.Range("A1").PasteSpecial Paste:=xlPasteValues Vous mentionnez ws2, mais ce n'est défini nulle part.

La boucle pourrait être quelque chose comme:

For i in Range("A1","A" & Lastrow_ws1) 
If i = LastDate Then 
    'Do what you want to do 
Else 
End If 
Next