Copy rows conditionally to another sheet Solved

Question

Good evening community ^^ I initially looked for a way without a macro, but I couldn't find one. I would have preferred it, but macros do not bother me :) I am therefore looking to copy rows containing an exact term from one sheet to another, for three different terms. I found this, https://forums.commentcamarche.net/forum/affich-28651561-macro-excel-copier-une-ligne-sous-condition but I can't adapt it to my file The idea is that when in column A of the "Subventions 2017" sheet it is strictly written "Associations subventionnées en 2016 sans demande 2017", the entire row should be copied and pasted into the first empty row of the "Subs 2016 sans demande 2017" sheet. Continuing, still in column A of the "Subventions 2017" sheet, when it is strictly written "Associations subventionnées en 2016 avec demande 2017", the entire row should be copied and pasted into the first empty row of the "Subs 2016 et demande 2017" sheet. The same goes for new applications. It should be noted that associations whose content in column A changes from "pas de demande 2017" to "demande 2017" should be deleted from the "pas de demande" sheet and copied to the "demande 2017" sheet. Thank you in advance for your help ^^ EDIT: the file in question: https://www.cjoint.com/c/FLmsEBjh7Ti Configuration: Configuration: Windows 7 (64 bits) Google Chrome (latest version) Intel(R) Core(TM) i7 CPU 2.4GHz Memory 8.00 Go Best regards, Naï P.S.: I monitor all my unresolved topics, if you have a solution, I will definitely read it :)

yg_be · Answer

Do you want to copy the lines, or move them?

gbinforme · Answer

Hello, Here is your binder with the copy: https://www.cjoint.com/c/FLmvXMuhg4l The same goes for new requests. For this, I don’t see what you want -- Always zen Perfection is achieved, not when there is nothing more to add, but when there is nothing left to take away. Antoine de Saint-Exupéry

yg_be · Answer

I suggest this: Option Explicit Sub nai() Dim numligne As Long, numdest As Long Dim dest As String Const ca As String = "Subsidized associations in 2016 without application 2017" Const fa As String = "Subs 2016 without application 2017" Const cb As String = "Subsidized associations in 2016 with application 2017" Const fb As String = "Subs 2016 and application 2017" numligne = 1 Do While Worksheets("Subsidies 2017").Cells(numligne, 1) <> "" Select Case Worksheets("Subsidies 2017").Cells(numligne, 1) Case ca: dest = fa Case cb: dest = fb Case Else: dest = "" End Select If dest <> "" Then numdest = Worksheets(dest).Cells(5, 1).End(xlDown).Row + 1 Worksheets("Subsidies 2017").Rows(numligne).Copy _ Worksheets(dest).Rows(numdest) Worksheets("Subsidies 2017").Rows(numligne).EntireRow.Delete Else numligne = numligne + 1 End If Loop 'Do While Worksheet("").Cells(numligne, 1) <> "" End Sub

Nai · Answer

Hello community ^^ I continue the topic since it's related, but if I need to create a new one, I will. The file has been somewhat adapted, especially regarding the MFC, but I have a problem that I think isn't related to the MFC. Indeed, the "New requests" category doesn’t seem to be taken into account. Well, it is, but just one entry :/ Can someone take a look at the macros and tell me what's wrong? :) File: https://www.cjoint.com/c/GAEl0AGQqH2 Thanks in advance :) Best regards, Naï P.S.: I monitor all my unresolved topics, if you have a solution, I will definitely read it :)

Copy rows conditionally to another sheet

4 réponses

Texture issues in enshrouded

Graphics card driver issue

Autocad: open/save window missing

Gray screen locked

Hard drive detected by bios but not by windows 10 pro

Call from: 00 00 00 00 00

How to access a local ip address outside the range?

Find a song "la la lalala lalala lalala"

Why isn't my keyboard working anymore?

Safari switched languages by itself