|
| Precedente :: Successivo |
| Autore |
Messaggio |
Paxi
Comune mortale
Registrato: 12/06/23 01:33
Messaggi: 2
|
 Inviato: 12 Giu 2023 11: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
Amministratore
Registrato: 08/02/12 13:23
Messaggi: 12729
|
| Inviato: 12 Giu 2023 15: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 01:33
Messaggi: 2
|
| Inviato: 12 Giu 2023 15: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
|
|
FAQ
Cerca
Lista utenti
Gruppi
Registrati
Profilo
Messaggi privati
Log in
