add cell depending on value text on another cell

[doudou]

Hi,

I have no experience with programming with vba, but would like to do something that seemingly only with it can be done... I have an old version of excel 2002

Depending on the value of all the cells from column B, I would like to add a cell between B en C, C becoming then D...

In another script, I'd like as well to have a script that allows me to bring the content in column A to column C when it is not empty or not containing text that looks like a date (it looks like dd-mm-yy plus a space and one or 2 digits)

It looks to me very complicated, but I guess some of you would find that very easy ;-)

Thx anyway for any answer.

[Norie]

Any chance you could upload a sample workbook?

Click on GO ADVANCED and use the paperclip icon to open the upload window.

[doudou]

I couldn't get the attacher to work, so I made a screenshot.

Preparing it, I saw that it would be more complicated:
when the cell in column A is containing text and no date, it should as well look at the value of the preceding cell in B.

I think you'll understand seeing the image, I included raw data and filtered data in the sample.

Thx

sample.PNG

[Journeyman3000]

Doudou,

I'm finding your description of the issue somewhat confusing. I wonder if you can can do an exercise for me. I want you to write a logical idea of what you're trying to achieve.

This is called 'Psuedocoding'. For example:

In sheetname "MyExampleSheet"
For each Row in the sheet
Examine Column A.
If the Row in Column A is empty then move data in Column C to Column D
Examine Column B
If the Row in Column B = "Some data" then Move Data in Column B to Column E

So this is basic loop. In even plainer English,

In the sheet that I am working with, start from row 1 and look at every row in turn until the last row.
For each row that I am looking at, examine the required column. If that column contains data, tell me what to do with it.
Continue reviewing and manipulating the data until all rows have been completed.

This kind of exercise will help you to structure your thoughts about how the data should be manipulated logically. It won't matter that you don't know how to code. If you can structure your request in this way, somebody like me or Norie may be able to provide the actual code you need.

For example:

Option Explicit
Sub MyWorksheetTest()
'Purpose: Loops through each row in an excel sheet and moves data from one column to another
Dim dDate as Date
Dim strMyValue as String

Set wsht = ThisWorkbook.Worksheets("MyExampleSheet")
With wsht
For i = 1 to 20 ' Where 20 is the last row ' This for loop will cycle for each row from 1 to 20. You need a start row and an end row.
dDate = .Range("A" & i)
if dDate = "01/05/2016" then ' If the data matches your requirements then do the following
.range ("D" & i) = .range ("C" & i) ' Copy Column C to Column D for the row
.Range("C" & i) ="" ' Make nothing
End if
Next i
End with
End Sub

Hope this helps.