valentivito
00domenica 8 novembre 2020 15:44
Buona sera chiede il vostro aiuto
Nel file Magazzino in K8 inizia la lista dell’attrezzatura, quello che avrei bisogno e che quando inserisco il nome dipendente e la data, se inserisco una x nella casella uscita fosse copiato i valori Ess. attrezzatura, dipendente, data nel foglio attrezzatura sotto uscita ,e nel foglio magazzino nella colonna L venisse scritto “non disponibile” mentre se successivamente inserisco la x rientro dovrebbe copiare il tutto sempre nel foglio attrezzatura sotto Rientro e nella colonna L cambia con disponibile Grazie
rollis13
00domenica 8 novembre 2020 18:13
Vedi se questa mia macro, che sfrutta l'Evento Worksheet_Change, da mettere nel modulo VBE del Foglio MAGAZZINO ti può andar bene come base di partenza che poi potrai personalizzare e integrare.
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
Dim ws2 As Worksheet
Dim rMod As Long 'riga modificata Foglio1
Dim rDest As Long 'riga destinazione Foglio7
Set ws2 = Worksheets("ATTREZZATURA")
If Target.Cells.Count > 1 Then Exit Sub 'se ho selezionato più celle esci
If Not Intersect(Target, Range("O:P")) Is Nothing Then 'se scrivo nelle colonne O e P procedi
If UCase(Target.Value) = "X" Then
Application.EnableEvents = False
rMod = Target.Row
Select Case Target.Column
Case Is = 15 '= colonna O
Range("L" & rMod) = "Non Disponibile"
rDest = ws2.Cells(Rows.Count, "B").End(xlUp).Row + 1
Uni0n(Range("K" & rMod), Range("M" & rMod), Range("N" & rMod)).Copy ws2.Range("B" & rDest)
Case Is = 16 '= colonna P
Range("L" & rMod) = "Disponibile"
rDest = ws2.Cells(Rows.Count, "F").End(xlUp).Row + 1
Uni0n(Range("K" & rMod), Range("M" & rMod), Range("N" & rMod)).Copy ws2.Range("F" & rDest)
End Select
Application.EnableEvents = True
End If
End If
End Sub
valentivito
00domenica 8 novembre 2020 18:25
Ciao ho fatto la prova ma ce questo errore
rollis13
00domenica 8 novembre 2020 18:27
Vedi che c'è una criticità con il CMS del Forum che cambia la "o" in "0", la dizione corretta della funzione é: UNION
valentivito
00domenica 8 novembre 2020 18:33
avevo notato quel tipo di errore ma adesso ce eADV
valentivito
00domenica 8 novembre 2020 18:38
sembra che funzioni adesso faccio la prova eADV non centrava niente cancellato
rollis13
00domenica 8 novembre 2020 18:49
Vedi che sono abituato a collaudare quello che propongo 😲 in base all'esempio fornito.
Per il resto lascio a chi ha in testa il Progetto fare modifiche/integrazioni.
valentivito
00domenica 8 novembre 2020 18:54
Ti ringrazio funziona tutto come volevo un grazie di cuore
rollis13
00domenica 8 novembre 2020 19:00
Grazie del riscontro positivo 👍.