UniversoExcelForo

Respuesta a consultas.
Fecha de creación: 09.Abril.2012

Fundadores: Wibly,Tyno,Servando,Sakkar,Rosendo2,RMaximo,Railar,Mcoronel,Ioyama,Igtelo,Hugotron,Drochar,Dedos,Alberto,Adolfo

No se pueden hacer consultas de Excel o VBA por mensaje privado.
Utiliza el botón buscar del foro y te ahorras tiempo para obtener "ayuda".

No estás conectado. Conéctate o registrate

Ver el tema anterior Ver el tema siguiente Ir abajo  Mensaje [Página 1 de 1.]

exploefra


Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim celda As Variant
Dim Origen, Destino As String
Dim i As Integer
fila = ActiveCell.Row
celda = Array("A", "B", "C", "D", "E", "F", "G", "H", "I", "J", "K", "L", "M", "N", "O", "P", "Q", "R", "S", "T", "U", "V", "W", "X", "Y", "Z", "AA", "AB", "AC", "AD", "AE", "AF", "AG", "AH", "AI", "AJ", "AK", "AL", "AM", "AN", "AO", "AP", "AQ", "AR", "AS", "AT", "AU", "AV", "AW", "AX", "AY", "AZ", "BA", "BB", "BI", "BK")
For i = 0 To 63
Origen = celda(i) & fila  (Aqui sale el error)
Destino = celda(i) & 1
Range(Destino).Value = Range(Origen).Value
Next i
Range("A2").Select
    ActiveCell.FormulaR1C1 = "=COUNTA(R[-1]C:R[-1]C[32])"
Dim a As Integer
a = Range("A2").Value
Range("A2").Value = "Unidad"
If a > 14 Then
UserForm1.Show
End If
End Sub

tyno


Hola exploefra.
Yo la verdad  no me doy cuenta que hace tu código o que estas pretendiendo lograr con el mismo.

De momento te diria que pruebes de insertar la linea On Error Resume Next debajo de Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) como para "saltar" el error y que la macro avance y ver los resultados que da.

Si no, podrias explicar un poco mas que deseas conseguir y si es posible pasar una archivo de ejemplo. Saludos.

exploefra


Adjunto el archivo para tu revision, en la pestaña datos mi archivo consiste en hacer doble click en la columna B en cualquier numero al hacer doble click me sale el error, ojala me hayas entendido.

tyno


El archivo no subió, hay que fijarse que no pese mas de 195 kb o sino comprimirlo como ZIP. Saludos.

5 Ahi va el link adjunto tyno el 16/08/13, 11:58 am

exploefra


Ahi va el el link adjunto tyno, Gracias por tu ayuda

[url=https://www.dropbox.com/s/83b71qf25lv2v1v/Convenios 1508.xlsm?m]https://www.dropbox.com/s/83b71qf25lv2v1v/Convenios%20%201508.xlsm?m[/url]

Ver el tema anterior Ver el tema siguiente Volver arriba  Mensaje [Página 1 de 1.]

Permisos de este foro:
No puedes responder a temas en este foro.