sub formatdata()
dim myserver as string
dim mykb as string
application.screenupdating = false
range("a1").select
sheets("output").activate
range("a1").currentregion.delete
range("a1").value = "server"
range("b1").value = "patch needed"
range("a2").select
sheets("input").activate
while selection.value <> ""
if instr(selection.value, "tss") then
myserver = selection.value
selection.offset(1, 0).select
while instr(selection.value, "kb")
mykb = selection.value
sheets("output").activate
activecell.value = myserver
activecell.offset(0, 1).value = mykb
activecell.offset(1, 0).select
sheets("input").activate
activecell.offset(1, 0).select
if selection.value = "" then goto exithere:
Wend
end if
wend
exithere:
Application.screenupdating = true
end sub
Bookmarks