If Then macro with text
Hi,
I need help with code that will search a list for cells with text in A1:A5 in sheet 2 and 3, and any text that exists will be listed in a column in sheet 1. what should I do? thanks! |
If Then macro with text
Something like this maybe...
Sub CopyDataToSheet1() Dim R As Long Dim C As Range Dim SH As Variant R = 2 'start row in Sheet1 For Each SH In Array(Worksheets("Sheet2"), Worksheets("Sheet3")) For Each C In SH.Range("A1:A5") If C.Value < "" Then Worksheets("Sheet1").Cells(R, "A").Value = C.Value R = R + 1 End If Next Next End Sub Rick "kevin026" wrote in message ... Hi, I need help with code that will search a list for cells with text in A1:A5 in sheet 2 and 3, and any text that exists will be listed in a column in sheet 1. what should I do? thanks! |
If Then macro with text
Try this simple macro
Sub getinfofromshts() For i = 2 To 3 sh = Sheets(i).Name With Sheets(1) For Each c In Sheets(sh).Range("a1:a8") lr = .Cells(Rows.Count, 1).End(xlUp).Row + 1 If Not IsNumeric(c) Then c.Copy .Cells(lr, 1) Next c End With Next i End Sub -- Don Guillett Microsoft MVP Excel SalesAid Software "kevin026" wrote in message ... Hi, I need help with code that will search a list for cells with text in A1:A5 in sheet 2 and 3, and any text that exists will be listed in a column in sheet 1. what should I do? thanks! |
All times are GMT +1. The time now is 12:12 PM. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
ExcelBanter.com