Alterar dados de com listview

[laercionb]

Ola

mais uma vez pessoal to precisando de uma força de vocês espero que possa me ajudar.

bom tenho uma planilha que tem varias plans. o lance é o seguinte.

consegui um material na net sobre listview mas o problema é q eu tenho q carregar dados de varias planilhas e nao só de uma.

consegui fazer a variavel para selecionar a planilha que quero mas quando altero os valores ele altera somente no listview e nao na planilha.

essa é a macro q estou usando.

Dim nomeplan As String

nomeplan = cdNome.Text & " SEMANA" ' cdnome é um textbox

Sheets(nomeplan).Select

UltimaLinha = Sheets(nomeplan).Cells(ActiveSheet.Cells.Rows.Count, "a").End(xlUp).Row + 1

For i = 2 To UltimaLinha

If cdID = Sheets(nomeplan).Cells(i, 1) Then

Sheets(nomeplan).Cells(i, 4) = UCase(cdEfetuado)

Sheets(nomeplan).Cells(i, 5) = UCase(cdResponsavel)

Exit For

End If

Next

For i = 1 To lsLista.ListItems.Count

If lsLista.ListItems.Item(i) = cdID Then

lsLista.ListItems.Item(i).SubItems(3) = UCase(cdEfetuado)

lsLista.ListItems.Item(i).SubItems(4) = UCase(cdResponsavel)

Exit For

End If

Next

MsgBox "VALOR ALTERADO"

End Sub

alguem pode me ajudar.

e é difícil postar a planilha pos ela depende de outras q serve como banco de dados.