# Posts by Hasson-M

awesome ! this is exactly what I look for it .

much appreciate for your help I hope my file explains what I want .

I put the orginal data in sheet before and the result in sheet after . it depends on the date in column B so I put the formula in column B to understand how should work any if the date in column B = date in column A+10 days. then should move the amount from column C to D and if date in column B > date in column A+10 days then should move but if there is no date in column B then shouldn't move amount , also if date in column B < date in column A+10 days then shouldn't move .

## Files

it doesn't work . it will clear the amount based on condition1 from column D and not work based on condition 2 . It does not move to column D

Quote

Are you checking if it is greater than the 10th day of the month?

yes . it also should move the amount from column C to D in this case

hi

I have this code but I no know what's the problem . I added condition if the datevalue in column B =datevalue in column A +10 or more than datevalue in column A +10 then should move the value from column C to column D

based on condition

Code
``If .Value = DateValue(.Offset(0, -1).Value) + 10``

it works as in row 6 the 17,000 was in column C but when add 10 to date in column A as show in column D

but based on this doesn't move to column D as in row 3

Code
``Or .Value = DateValue(.Offset(0, -1).Value) > 10 Then``

## Files

yes . thanks so much royUK magnificent ! that's what I want . just I would understand theses values ix-4,ix-8 . what means ,please ?

I know .I don't find anything about this idea in the internet so far . I hope to you achieve that.

royUK thanks . what are about the rest of textboxes ? when copy from the userform should be like this

(textbox1,2,3,4)=columns(A,B,C,D)

(textbox5,6,7,8)=columns(A,B,C,D)

(textbox9,10,11,12)=columns(A,B,C,D)

how can I use loop like this

for i= 1 to 12 'numbers of textboxes

for each four textboxes when I fill . should copy to COL A,B,C,D

thanks I know this way , but if I have much more textboxes , then the code becomes very big .so I want using loop in my case

to make the code is short . did you see my file?

hi

I need fixing this code

Code
``````Private Sub CommandButton1_Click()
Dim i As Integer
Dim lastRow As Long

lastRow = Sheets("DATA").Range("A" & Rows.Count).End(xlUp).Row
For i = 1 To 4
Sheets("DATA").Cells(lastRow + i, "A").Value = Controls("textbox" & i).Value
Next i

End Sub``````

t just copy in one column . each four textboxes (CODE,BRAND,TYPE,ORIGIN) should copy to columns A,B,C,D

currently the code copy to column A and just textbox1,2,3 ,4 with ignore the rest of textboxes

so I truly appreciate if anybody help.

## Files

thanks but I note if I change in sheet data it doesn't update the data in sheet pivot

but when every time add data it becomes a big then I have to create tables manually and fill formulas it will take more time , I would do that dynamically that's why I ask doing that by vba , actually I don't want getting hard the matter for you

isn't clear my thread , assistance ? hello

this is the first post I hope find the solution here

I enter data in sheet data for many customers so what I want create summary for all customers and show the balance for each customer so when the cell c2 is empty should brings all data for all customers and if I select specific name then should show this customer and if I select another customer should copy to bottom without repeat the customer has existed , just updating I mean if add a new data in sheet data and it's existed in sheet report1 it shouldn't copy to they bottom again , just change the data and the same thing should just copy the data remains values and if I change the data in sheet data should update in sheet REPORT1

I put the result in sheet REPORT when select from cell C2 and should show the tables with borders and formatting

and I put some formulas how should calculate but should show as value

my real data about 2500 rows that's why I would do that by vba