Visual Basic para Aplicaciones - Al pegar valores en la sig celda(offset) los duplica

Life is soft - evento anual de software empresarial
   
Vista:

Al pegar valores en la sig celda(offset) los duplica

Publicado por jaime (1 intervención) el 20/09/2014 19:37:14
Buenas tardes amigos, el motivo del presente es porque tengo una detalle con una parte del codigo que tengo, quiero que al desplegarme el listbox y marque un item me lo ponga en una celda especifica y el siguiente item seleccionado en la celda que sigue y así, sucesivamente, pero el primer valor lo hace correctamente pero para los que siguen me duplica los valores colocando el mismo dato en las siguientes dos celdas, envio mi codigo.

sub Lb_Gastos_click()

Sheets("BDConcilGas").Select
Dim x As Integer
x = Lb_Gastos.ListIndex + 2
Cells(x, 4).Select
Selection.Copy

Range("g1") = "VALOR"

Cells(Rows.Count, 7).End(xlUp).Offset(1, 0).Select
ActiveSheet.Paste

Application.CutCopyMode = False

End Sub

De ante mano mil gracias por el apoyo
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder