Actualizar valores en tablas distintas

[alixo100]

Buen día, antetodo saludarlos y agradecerles que revisen el tema propuesto.

Tengo tres hojas, la primera contiene un visor simple de cuenta: en el cual se coloca el código de la persona y esta te muestra su información y el saldo por cobrar a la fecha, las cuales son buscadas de las dos hojas siguientes donde se encuentra una tabla en cada una, es decir hay personas que estan dentro de la primera tabla y otras en la segunda tabla, por eso las busca en las dos.

Una vez hecho esto, se coloca el importe pagado, lo cual genera el nuevo saldo. Entonces, he intentado crear una macro que me permita actualizar el nuevo saldo dentro de la tabla donde se encuentra la persona, que seria en la columna "Saldo por cobrar a la fecha",Espero se haya podido comprender el tema y obtener una solución, ya que mis conocimientos en programación todavia no estan a la altura de este problema, adjunto un ejemplo de lo que he mencionado, Muchas Gracias

estado de cuenta1.xls

[alixo100]

Que tal, bueno mientras espero una solucion empezé a trabajar en la mia, pero no me funca el resultado me sale "el objeto no admite esta propiedad o metodo" y no se a que se debe:

Dim c As String

Sub actualizar()

'en a y b se encuentran la fila y columna de la celda a pegar, en m5 una validación para mi proceso en mi anidado

a = Range("m6").Value

b = Range("m7").Value

c = Range("m5").Value

If c = "conNC" Then

Range("g18").Copy

Worksheets("con NC").Cells(a, .past.especial xlPasteValues

Else

Range("g18").Copy

Worksheets("sin NC").Cells(a, .past.especial xlPasteValues

End If

Application.CutCopyMode = False

MsgBox ("El Saldo con monto de " & Range("g18") & " ha sido actualizado")

End Sub

Espero que alguien pueda darme luz sobre este hecho

- - - - - Mensaje combinado - - - - -

jeje, intentando me salio lo tengo solucionado, espero vean el codigo, y si hay una solucion mejor me gustaria obtenerlo, muchas gracias

Dim c As String

Sub actualizar()

a = Range("m6").Value

b = Range("m7").Value

c = Range("m5").Value

If c = "conNC" Then

Range("g18").Copy Destination:=Worksheets("con NC").Cells(a,

Application.CutCopyMode = False

End If

If c = "sinNC" Then

Range("g18").Copy Destination:=Worksheets("sin NC").Cells(a,

Application.CutCopyMode = False

End If

MsgBox ("El Saldo con monto de " & Range("g18") & " ha sido actualizado")

End Sub

- - - - - Mensaje combinado - - - - -

jeje, depsues de tantos intentos ya lo tengo solucionado, espero vean la solucion y espero su opinion, quisiera saber un procedimiento mas sencillo, muchas gracias

Dim c As String

Sub actualizar()

a = Range("m6").Value

b = Range("m7").Value

c = Range("m5").Value

If c = "conNC" Then

Range("g18").Copy Destination:=Worksheets("con NC").Cells(a,

Application.CutCopyMode = False

End If

If c = "sinNC" Then

Range("g18").Copy Destination:=Worksheets("sin NC").Cells(a,

Application.CutCopyMode = False

End If

MsgBox ("El Saldo con monto de " & Range("g18") & " ha sido actualizado")

End Sub