SOLVED

Help with Macro

%3CLINGO-SUB%20id%3D%22lingo-sub-1727621%22%20slang%3D%22en-US%22%3EHelp%20with%20Macro%3C%2FLINGO-SUB%3E%3CLINGO-BODY%20id%3D%22lingo-body-1727621%22%20slang%3D%22en-US%22%3EHi.%20I'm%20Boris%20from%20Serbia%20and%20I%20need%20your%20help!%3CBR%20%2F%3E%3CBR%20%2F%3EI%20want%20when%20I%20put%20%22DA%22%20(on%20english%20DA%20means%20YES)%20on%20the%20drop-down%20list%20(right%20on%20the%20screen)%20automaticly%20copy%20column%20%22Cena%22%20(eng.%20Price)%20and%20%22Proizvod%22%20(eng.%20Product)%20to%20my%20second%20table%20on%20second%20Sheet%20(Prodaja%2FNabavka)%20in%20column%20%22Prodaja%2FNabavka%22%20(eng.%20Sell%2FPurchase)%20and%20%22Prihod%22%20(eng.%20Income).%3CBR%20%2F%3E%3CBR%20%2F%3EMeans%2C%20when%20I%20click%20%22DA%22%20column%20%22Proizviod%22%20copy%20to%20column%20%22Prodaja%2FNabavka%22%20and%20column%20%22Cena%22%20to%20%22Prihod%22.%3CBR%20%2F%3E%3CBR%20%2F%3ECan%20I%20expect%20your%20help%20or%20you%20can%20tell%20my%20how%20can%20I%20do%20that%3F%20Thanks%20for%20your%20time.%20I%20send%20you%20my%20Workbook%20in%20attachment.%20Thanks%20for%20your%20help!%20%3Asmiling_face_with_smiling_eyes%3A%3C%2FLINGO-BODY%3E%3CLINGO-LABS%20id%3D%22lingo-labs-1727621%22%20slang%3D%22en-US%22%3E%3CLINGO-LABEL%3EExcel%3C%2FLINGO-LABEL%3E%3CLINGO-LABEL%3EMacros%20and%20VBA%3C%2FLINGO-LABEL%3E%3C%2FLINGO-LABS%3E%3CLINGO-SUB%20id%3D%22lingo-sub-1728359%22%20slang%3D%22en-US%22%3ERe%3A%20Help%20with%20Macro%3C%2FLINGO-SUB%3E%3CLINGO-BODY%20id%3D%22lingo-body-1728359%22%20slang%3D%22en-US%22%3E%3CP%3E%3CA%20href%3D%22https%3A%2F%2Ftechcommunity.microsoft.com%2Ft5%2Fuser%2Fviewprofilepage%2Fuser-id%2F814389%22%20target%3D%22_blank%22%3E%40Boris95%3C%2FA%3E%26nbsp%3B%3C%2FP%3E%0A%3CP%3EHere%20is%20a%20macro%3A%3C%2FP%3E%0A%3CPRE%20class%3D%22lia-code-sample%20language-visual%22%3E%3CCODE%3EPrivate%20Sub%20Worksheet_Change(ByVal%20Target%20As%20Range)%0A%20%20%20%20Dim%20rng%20As%20Range%0A%20%20%20%20Dim%20r%20As%20Long%0A%20%20%20%20If%20Not%20Intersect(Me.Range(%22K5%3AK100%22)%2C%20Target)%20Is%20Nothing%20Then%0A%20%20%20%20%20%20%20%20Application.ScreenUpdating%20%3D%20False%0A%20%20%20%20%20%20%20%20Application.EnableEvents%20%3D%20False%0A%20%20%20%20%20%20%20%20With%20Sheet2%0A%20%20%20%20%20%20%20%20%20%20%20%20r%20%3D%204%0A%20%20%20%20%20%20%20%20%20%20%20%20Do%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20r%20%3D%20r%20%2B%201%0A%20%20%20%20%20%20%20%20%20%20%20%20Loop%20Until%20.Range(%22H%22%20%26amp%3B%20r).Value%20%3D%20%22%22%0A%20%20%20%20%20%20%20%20%20%20%20%20For%20Each%20rng%20In%20Intersect(Me.Range(%22K5%3AK100%22)%2C%20Target)%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20.Range(%22H%22%20%26amp%3B%20r).Value%20%3D%20rng.Offset(0%2C%20-4).Value%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20.Range(%22I%22%20%26amp%3B%20r).Value%20%3D%20rng.Offset(0%2C%20-3).Value%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20r%20%3D%20r%20%2B%201%0A%20%20%20%20%20%20%20%20%20%20%20%20Next%20rng%0A%20%20%20%20%20%20%20%20End%20With%0A%20%20%20%20%20%20%20%20Application.EnableEvents%20%3D%20True%0A%20%20%20%20%20%20%20%20Application.ScreenUpdating%20%3D%20True%0A%20%20%20%20End%20If%0AEnd%20Sub%3C%2FCODE%3E%3C%2FPRE%3E%3C%2FLINGO-BODY%3E%3CLINGO-SUB%20id%3D%22lingo-sub-1732290%22%20slang%3D%22en-US%22%3ERe%3A%20Help%20with%20Macro%3C%2FLINGO-SUB%3E%3CLINGO-BODY%20id%3D%22lingo-body-1732290%22%20slang%3D%22en-US%22%3E%3CP%3EThanks%20a%20lot%26nbsp%3B%3CA%20href%3D%22https%3A%2F%2Ftechcommunity.microsoft.com%2Ft5%2Fuser%2Fviewprofilepage%2Fuser-id%2F127945%22%20target%3D%22_blank%22%3E%40Hans%20Vogelaar%3C%2FA%3E%26nbsp%3BThis%20work%20for%20me.%26nbsp%3B%3C%2FP%3E%3C%2FLINGO-BODY%3E
Highlighted
New Contributor
Hi. I'm Boris from Serbia and I need your help!

I want when I put "DA" (on english DA means YES) on the drop-down list (right on the screen) automaticly copy column "Cena" (eng. Price) and "Proizvod" (eng. Product) to my second table on second Sheet (Prodaja/Nabavka) in column "Prodaja/Nabavka" (eng. Sell/Purchase) and "Prihod" (eng. Income).

Means, when I click "DA" column "Proizviod" copy to column "Prodaja/Nabavka" and column "Cena" to "Prihod".

Can I expect your help or you can tell my how can I do that? Thanks for your time. I send you my Workbook in attachment. Thanks for your help!
2 Replies
Highlighted
Best Response confirmed by Boris95 (New Contributor)
Solution

@Boris95 

Here is a macro:

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim rng As Range
    Dim r As Long
    If Not Intersect(Me.Range("K5:K100"), Target) Is Nothing Then
        Application.ScreenUpdating = False
        Application.EnableEvents = False
        With Sheet2
            r = 4
            Do
                r = r + 1
            Loop Until .Range("H" & r).Value = ""
            For Each rng In Intersect(Me.Range("K5:K100"), Target)
                .Range("H" & r).Value = rng.Offset(0, -4).Value
                .Range("I" & r).Value = rng.Offset(0, -3).Value
                r = r + 1
            Next rng
        End With
        Application.EnableEvents = True
        Application.ScreenUpdating = True
    End If
End Sub
Highlighted

Thanks a lot @Hans Vogelaar This work for me.