yes also show messages is very important to be sure the values are added

hi, Roy it doesn't seem explain clearly for instance i fill data as what existed in col AA, AA1 after filling theses brand and fill quantity 5,10 an press command button before add the same brand and sum values it reminders it was the quantity by message " the quantity was" like this

and the second message it shows after add the same brands and summing not add to last row because is existed if is existed in sheet like this

"the quantity becomeif what writing brand not existed as in col a jut show message "no data about his brand

if this explanation is confused or not clear i have to that by picture

thanks

hello

i have this code what i want after fill data and press command button on userform first show me message what i filled data based on sheet show details from col a: col e based what i writing in multiple combobox and textbox and after this it add values to column e and show another message show me what happened after sum quantity show details from column a : e then copy to sheet

Private Sub CommandButton1_Click()
Dim LAS, i As Integer
LAS = Cells(Rows.Count, 5).End(xlUp).Row
With sheet1
.Range("A" & LAS + 1) = Me.ComboBox1.Value
.Range("B" & LAS + 1) = Me.ComboBox2.Value
.Range("C" & LAS + 1) = Me.ComboBox3.Value
.Range("D" & LAS + 1) = Me.ComboBox4.Value
.Range("A" & LAS + 2) = Me.ComboBox5.Value
.Range("B" & LAS + 2) = Me.ComboBox6.Value
.Range("C" & LAS + 2) = Me.ComboBox7.Value
.Range("D" & LAS + 2) = Me.ComboBox8.Value
.Range("E" & LAS + 1) = Me.TextBox1.Value
.Range("E" & LAS + 2) = Me.TextBox2.Value
End With
End Sub

awesome code thanks for your assistance and your time

great code just curiosity if i would copy to non adjacent columns to destination file like copy to d,f,h how is it ?

i think founding my mistake i was running the code from the destination file not source file as your two files now it works thank you and mr Mumps for the code but i have a question is there way to run the code from destination file without open source file

what i attached i applied it's strange

yes as Mumps said

hi, logit this no merged cells both two workbooks

it gives me error"

This selection isn't valid. Make sure the copy and paste areas don't overlap

unless it is the same size and shape

Ask Question

in this line

 Union(.Columns("A"), .Columns("C"), .Columns("E")).Copy desWS.Range("A1")

i would copy columns A, C and E to columns A, B and C

hello i search macro copy columns non adjacent in sheet from workbook to another i want copy column a, c,e to another workbook

i put the code in module and why do that i just test for type protection prevent delete or insert col instead of protection whole worksheet

hi, Royuk i tested doesn't success i try many codes in the internet i don't find any solution so far as you said it supposes working but i no know what's wrong

hi, guys

first of all i issued the same post in this forum

https://www.mrexcel.com/board/…un-macro-in-exel.1149869/

i was searching way to hide command bar i 've found it but when i restore to normal it doesn't work it keeps hiding command bar i tried change Boolean to true but it doesn't success

i truly appreciate if any body help me for solve this complicated problem

Sub cc()
  Application.CommandBars("Worksheet Menu Bar").Enabled = false

End Sub

yes, and works very well your code

yes Royuk you're absolutely right the version is not relating for this problem , mr. rorya solved me this problem for another code but similar problem the problem is was vba editor option as in the images

change from this

to this

hi, Royuk i would sharing the solution about your code as logit and me expected the problem is version current pc office 2016 but i try with pc office 2010 it works if you still suspect it i think the problem maybe should select some library tools from reference is missing but i no know what's the tool

hi, logit , royUK actually you've solved my problem it just is curiosity logit's codes works fine but royUK'S code not work with me , i 'm interested royuk's code i doubt version or update windows i tested royuk's code almost five workbooks but the problem still continues honestly this is not first problem i face some codes give me error like

invalid procedure call or argument , some people said me to overcome this problem should update windows or office i did two both but doesn't success the code works with some members but me not i no know where is the problem so far i can't find way any solution some codes doesn't work despite works with some people

very strange the problem may be in version office or windows 10 anyway thanks for your time