so have been stumped while now. have 2 sheets values in column 1 bolded. wish filter through values on second sheet (mult. year set up) , copy entire row of data same column 1 bolded text.
for example take "backhoes" row first link , copy "backhoes" row on second link.
the major issue here rows on first page bolded text variable , may not allways have same row number. row numbers change when more equipment added.
thanks in advance assistance, said, have been working on few days now.
additionally, data must transposed row column, minor detail.
look @ this. 1. loop through rows looking bold cells. 2. loop through columns , copy data source sheet target sheet.
dim lrow long dim lcol long dim lrowfind long dim sourcesheet excel.worksheet dim targetsheet excel.worksheet set sourcesheet = activeworkbook.sheets("current year budget") set targetsheet = activeworkbook.sheets("mult. year set up") lrow = 5 while lrow <= sourcesheet.usedrange.rows.count 'you name 'if ws.range("a" & lrow).value = "backhoes" or ws.range("a" & lrow).value = "graders" 'if looking variable rows them being bold. can this. if sourcesheet.range("a" & lrow).font.bold = true 'find row on target sheet want write data. lrowfind = 1 while lrowfind <= targetsheet.usedrange.rows.count if targetsheet.range("a" & lrowfind).value = sourcesheet.range("a" & lrow).value exit end if lrowfind = lrowfind + 1 loop 'now have row want copy. icol = 1 sourcesheet.usedrange.columns.count targetsheet.cells(lrowfind + icol, 2).value = sourcesheet.cells(lrow, icol).value next icol end if lrow = lrow + 1 sourcesheet.range("a" & lrow).activate loop 
Comments
Post a Comment