Excel - Código VBA para tablet

 
Vista:
sin imagen de perfil
Val: 1
Ha aumentado su posición en 5 puestos en Excel (en relación al último mes)
Gráfica de Excel

Código VBA para tablet

Publicado por Nacho Valdés (16 intervenciones) el 25/03/2014 21:04:26
Buenas tardes a todos,

El código que adjunto, funciona a las mil maravillas en Excel en el ordenador, pero al pasar el archivo a una tablet Android y quererlo abrir con el programa Kingsoft Office, me dice que la macro no puede ser ejecutada.
Tendría esto arreglo con otro programa para abrir el archivo en la tablet? o que solución veis si es que la tiene.

Gracias.

Código:


Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$F$4" Then
Dim celda As Range
For Each celda In Sheets("TARIFA").Range("$B$2:" & Sheets("TARIFA").Cells(6535, 2).End(xlUp).Address)
If InStr(1, UCase(celda.Value), UCase(Target.Value)) > 0 Then
Cells([h2].Value, 8).Value = celda.Offset(0, -1).Value
Cells([h2].Value, 7).Value = celda.Value
End If
Next celda
[F4].Select
End If
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
' Exit Sub
If Target.Column = 7 Then
Cells(2, 2).Value = Cells(Target.Row, 8).Value
Range("F4:H300").ClearContents
[F4].Select
End If
End Sub
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