Mejorar macro para sobre escribir información.
Publicado por santi (24 intervenciones) el 12/12/2018 08:52:34
Buenos días.
Tengo esta macro que me coge unos datos y los pega en un libro que está cerrado. Lo hace perfecto. La macro es:
El problema que tengo es que si en la lista hay un código igual lo sobre escriba. La información que copia está en el rango Range("B195:I195"), pero la información del B195 es la que debe tener en cuenta para ver si está en el listado y sobre escribirla. En B195 hay un código como 1812-1-330 PEPITO. que quiere decir MesAño-codigo comercial-Número oferta + nombre cliente. Necesito que si ese código ya existe lo sobre escriba.
Muchas gracias por la ayuda
Tengo esta macro que me coge unos datos y los pega en un libro que está cerrado. Lo hace perfecto. La macro es:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Sub Graba()
Dim intFila As Integer
Range("B195:I195").Select
Selection.CopyWorkbooks.Open Filename:= _
"C:\Users\SantiQuirante\Desktop\comercial seguimiento\seguimiento 2019.xlsx"Sheets("Hoja1").Select
Range("B10").Select
intFila = 2While Range("a" & CStr(intFila)).Value <> 0
intFila = intFila + 1
Wend
Range("a" & CStr(intFila)).Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
ActiveWorkbook.SaveActiveWindow.CloseEnd Sub.El problema que tengo es que si en la lista hay un código igual lo sobre escriba. La información que copia está en el rango Range("B195:I195"), pero la información del B195 es la que debe tener en cuenta para ver si está en el listado y sobre escribirla. En B195 hay un código como 1812-1-330 PEPITO. que quiere decir MesAño-codigo comercial-Número oferta + nombre cliente. Necesito que si ese código ya existe lo sobre escriba.
Muchas gracias por la ayuda
Valora esta pregunta
0
