please help for writing a vba code to use spss application version 20 and run a syntax using vba code

Here is the code I have it is only coping one row over to sheet 2 and I have not been able to figure out why. I just want to look through column ED and find some text, cut the row and put it in sheet 2. But it cuts the rows but only pasts on row in sheet 2.

I have 2 sheet. 1 is data base and the other 1 is for log sheet.

I’m working on excel that contain thousands of data.
I wish to be able to copy value from cells in column D, If cells in column B is empty.

I’ve got a simple VBA code which is supposed to open a Word file and replace text “<1>” with text “<2>”,then save file with a new name but it doesn’t do that. Instead it would save the file without changes. In the same time result of “Execute” would be positive(Message box with text “Found” is displayed).

How do I write a VBA that will give me the ranges for zip codes based on the following:

enter image description here

Private Sub PopulateLayout(ByVal entity_id As Integer) Dim sSQL As String cboLayout.Clear sSQL = “PS_Layout_list @deal_only=1, @entity_id=” & entity_id rs.Open sSQL Do While Not rs.EOF cboLayout.AddItem cboLayout.Column(0, cboLayout.ListCount – 1) = rs(“layout_id”).Value cboLayout.Column(1, cboLayout.ListCount – 1) = rs(“description”).Value rs.MoveNext Loop rs.Close If cboEntity = 4505 Then cboLayout = 14400 ‘ here is where error occurred End […]

How could i change value in sheet for example “Sheet1” into proper text everytime i run the macro?