for each cell in range in wb1 manipulate string & paste to wb2 diff col same row

For Each cell In myrange.SpecialCells(xlCellTypeConstants)
thisrow = cell.Row
dbstr = left(cell,2) ' paste to wb2 col 'a' row thisrow
newstr =mid(cell, 3,6) & "/" & right(cell,2) ' paste to wb2 col 'h' row thisrow

next cell


this is example of what I thought by using loop.

will also be taking other ranges and copying complete to other workbook no cell manipulation required

any help or suggestions

regards Alan

Originally Posted by Norie

Alan

One of the main things you need to add are workbook and worksheet references in the code to make sure the correct data and destination are being used.

Thank you Norie I do appreciate that, my problem was how to move between workbooks to do the pasting whilst in the for loop

or do I just actiavte workbook2 select the cell required and then set cell.Value to be that of string value in workbook1 example dbstr then close workbook2 (assuming I will be back in workbook1 inside for loop.

I supposed I should have posted the following:-

DownloadWB = Application.GetOpenFilename( _
FileFilter:="Microsoft Excel Workbooks, *.xls; *.xlsx", Title:="Open Workbook")

Workbooks.Open DownloadWB

Set download = ActiveWorkbook
download.Activate

Range(Cells(1, 1), Cells(myLastRow, 1)).Select
Set myrange = ActiveSheet.Range(ActiveWindow.Selection.Address)

For Each cell In myrange.SpecialCells(xlCellTypeConstants)
ThisRow = cell.Row
dbstr = Left(cell, 2) ' paste to wb2 col 'a' row thisrow
newstr = Mid(cell, 3, 6) & "/" & Right(cell, 2) ' paste to wb2 col 'h' row thisrow

Next cell

as you can gather workbook1 is download

I also do something similar for workbook2 which is named databook

hope this helps still new to this