Precedente :: Successivo |
Autore |
Messaggio |
Paxi Comune mortale
Registrato: 12/06/23 00:33 Messaggi: 2
|
Inviato: 12 Giu 2023 10:49 Oggetto: Compatibilità vba excel in libreoffice |
|
|
Salve, non sono un esperto, ho perso 1 mese per creare 2 codici in vba excel ma in ufficio si usa Libreoffice e per adesso sono praticamente 0. Se qualcuno mi può aiutare a renderlo compatibile, ho poco tempo a disposizione e devo presentare un lavoro:(
Grazie. inserisco i 2 codici che in excel funzionano.
Codice: | Option Explicit
Sub RICERCA_PER_1_PROTOCOLLO()
Dim sh As Worksheet
Dim rng As range
Dim v As Variant
v = Application.InputBox("Inserisci Il Numero Di Protocollo")
If v = "" Then Exit Sub
If v = False Then Exit Sub
Set sh = ThisWorkbook.Worksheets("ARCHIVIO")
Set rng = sh.range("C13:C9999").Find(What:=v, LookAt:=xlWhole, LookIn:=xlValues)
If Not rng Is Nothing Then
rng.Select
Dim idomanda As Integer
idomanda = MsgBox("Cella Trovata" & vbNewLine & rng.Address & " . Vuoi Cercare Ancora?", vbYesNo)
If idomanda = vbYes Then
range("A11").Select
End If
If idomanda = vbNo Then
Exit Sub
End If
Else
MsgBox "Cella non Trovata. Vuoi Cercare Ancora?", vbYesNo
If idomanda = vbYes Then
range("A11").Select
End If
If idomanda = vbNo Then
Exit Sub
End If
Set rng = Nothing
Set sh = Nothing
End If
End Sub
-----------------------------
Option Explicit
Option Compare Text
Sub RICERCA_PER_2_INIZIALI_DITTA()
Dim sh As Worksheet
Dim rng As range
Dim Cerca As Variant
Cerca = Application.InputBox("Inserisci Iniziali della Ditta")
If Cerca = False Then Exit Sub
If Cerca = "" Then Exit Sub
Set rng = ThisWorkbook.Worksheets("ARCHIVIO").range("D12:D9999").Find(What:=Cerca, LookAt:=xlPart, LookIn:=xlValues)
If Not rng Is Nothing Then
rng.Select
Dim idomanda As Integer
idomanda = MsgBox("Cella Trovata" & vbNewLine & rng.Address & " . Vuoi Cercare Ancora?", vbYesNo)
If idomanda = vbYes Then
range("A11").Select
End If
If idomanda = vbNo Then
Exit Sub
End If
Else
MsgBox "Cella non Trovata. Vuoi Cercare Ancora?", vbYesNo
If idomanda = vbYes Then
range("A11").Select
End If
If idomanda = vbNo Then
Exit Sub
End If
Set rng = Nothing
Set sh = Nothing
End If
End Sub
|
|
|
Top |
|
|
Maary79 Moderatrice Sistemi Operativi e Software
Registrato: 08/02/12 12:23 Messaggi: 12242
|
Inviato: 12 Giu 2023 14:00 Oggetto: |
|
|
Hai postato sul primo forum a caso... Ho capito che hai fretta, vabè lo sposteremo noi...
Riguardo il tuo problema per avere una risposta celere ti conviene chiedere al supporto tecnico di LibreOffice, se è possibile.
link |
|
Top |
|
|
Paxi Comune mortale
Registrato: 12/06/23 00:33 Messaggi: 2
|
Inviato: 12 Giu 2023 14:59 Oggetto: |
|
|
Salve, il primo ho risolto facendo tentativi. mi mancherebbe il secondo. |
|
Top |
|
|
|
|
Non puoi inserire nuovi argomenti Non puoi rispondere a nessun argomento Non puoi modificare i tuoi messaggi Non puoi cancellare i tuoi messaggi Non puoi votare nei sondaggi
|
|