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
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


0