inserire valore tra 2 fogli

Option Explicit

Sub Aggiorna_Articoli()

    Dim sh1    As Worksheet
    Dim sh2    As Worksheet
    Dim cella  As Range
    Dim pos    As String
    Dim articolo As Variant
    Dim quantità As Variant

    Set sh1 = Sheets("nuovo_articolo")
    Set sh2 = Sheets("articolo")
    With sh1
        pos = .Range("C2") & .Range("D2") & Format(.Range("E2"), "00") 'costruisci il codice pos
        articolo = .Range("C3")
        quantità = .Range("C4")
    End With
    With sh2
        Set cella = .Range("A6:A2604").Find(What:=pos, LookIn:=xlValues) 'cerca l'articolo
        If .Cells(cella.Row, 2) = "" Then         'se colonna B è vuota ...
            .Cells(cella.Row, 2) = articolo       '... inserisci l'articolo
            .Cells(cella.Row, 7) = quantità       '... inserisci la quantità
        Else
            MsgBox "posizione non libera"         'la colonna B è già impegnata
        End If
    End With
    
End Sub

Option Explicit

Sub Aggiorna_Articoli()

 
    Dim sh1    As Worksheet
    Dim sh2    As Worksheet
    Dim cella  As Range
    Dim pos    As String
    Dim articolo As Variant
    Dim quantità As Variant
    Dim avviso As String
    
    Set sh1 = Sheets("nuovo_articolo")
    Set sh2 = Sheets("articoli")
        
        
    
    With sh1
        pos = .Range("C3") & .Range("D3") & Format(.Range("E3"), "00") 'costruisci il codice pos
        articolo = .Range("C4")
        quantità = .Range("C5")
    End With
    With sh2
        Set cella = .Range("A6:A2604").Find(What:=pos, LookIn:=xlValues) 'cerca l'articolo
        If .Cells(cella.row, 2) = "" Then         'se colonna B è vuota ...
            .Cells(cella.row, 2) = articolo       '... inserisci l'articolo
            .Cells(cella.row, 7) = quantità       '... inserisci la quantità
        Else
            MsgBox "posizione non libera"         'la colonna B è già impegnata
        End If
    End With
    

     
End Sub

Option Explicit

Sub Aggiorna_Articoli()

    ActiveSheet.Unprotect "123456"
    
    Dim sh1    As Worksheet
    Dim sh2    As Worksheet
    Dim cellaPos As Range
    Dim cellaArt As Range
    Dim pos    As String
    Dim articolo As Variant
    Dim quantità As Variant
    
    Set sh1 = Sheets("nuovo_articolo")
    Set sh2 = Sheets("articoli")
    With sh1
        pos = .Range("C3") & .Range("D3") & Format(.Range("E3"), "00") 'costruisci il codice pos
        articolo = .Range("C4")
        quantità = .Range("C5")
    End With
    With sh2
        Set cellaPos = .Range("A6:A2604").Find(What:=pos, LookIn:=xlValues, LookAt:=xlWhole) 'cerca il pos
        Set cellaArt = .Range("B6:B2604").Find(What:=articolo, LookIn:=xlValues, LookAt:=xlWhole) 'cerca l'articolo
        If Not cellaArt Is Nothing Then           ' articolo già presente
            MsgBox "articolo già presente in foglio articoli in Pos. " & .Cells(cellaArt.Row, 1) 'l'articolo già esiste
            Exit Sub
        End If
        If .Cells(cellaPos.Row, 2) = "" Then      'se colonna B è vuota ...
            .Cells(cellaPos.Row, 2) = articolo    '... inserisci l'articolo
            .Cells(cellaPos.Row, 7) = quantità    '... inserisci la quantità
            MsgBox "magazzino aggiornato"         'operazione correttamente completata
        Else
            MsgBox "posizione non libera, trovato articolo " & .Cells(cellaPos.Row, 2) 'la colonna B è già impegnata
        End If
    End With
    
    ActiveSheet.Protect "123456"
    
End Sub

...
ActiveSheet.Protect "123456"    '<=AGGIUNTA
Exit Sub
...

Option Explicit




 
Sub Aggiorna_Articoli()
 
    ActiveSheet.Unprotect "123456"
     
    Dim sh1    As Worksheet
    Dim sh2    As Worksheet
    Dim cellaPos                                  '  As Range
    Dim cellaArt
    Dim pos    As String
    Dim articolo As Variant
    Dim quantità As Variant
    Dim num1, num2, num3 As String
    Dim avviso As String
    
    
    num1 = Foglio8.Range("D3").Value 'pos1
    num2 = Foglio8.Range("F3").Value 'pos2
    num3 = Foglio8.Range("D4").Value 'art
    
    
    avviso = MsgBox("Sign. " & Environ("UserName") & Chr(13) & "inserisco articolo < " & _
    num3 & " > in pos. < " & num1 & "-" & num2 & " >?", _
    vbInformation + vbYesNo + vbDefaultButton2, "AVVISO")
    If avviso = vbNo Then
    Exit Sub
    End If
                                  
        
     
    Set sh1 = Sheets("nuovo_articolo")
    Set sh2 = Sheets("articoli")
    With sh1
        pos = .Range("D3") & .Range("E3") & Format(.Range("F3"), "00") 'costruisci il codice pos
        articolo = .Range("D4")
        quantità = .Range("D5")
    End With
    With sh2
        Set cellaPos = .Range("A6:A2604").Find(What:=pos, LookIn:=xlValues, LookAt:=xlWhole) 'cerca il pos
        Set cellaArt = .Range("B6:B2604").Find(What:=articolo, LookIn:=xlValues, LookAt:=xlWhole) 'cerca l'articolo
        If Not cellaArt Is Nothing Then           ' articolo già presente
        
            MsgBox "articolo già presente in foglio articoli in Pos. " & .Cells(cellaArt.row, 1) 'l'articolo già esiste
            
            ActiveSheet.Protect "123456"    '<=AGGIUNTA
            Exit Sub
            
        End If
        If .Cells(cellaPos.row, 2) = "" Then      'se colonna B è vuota ...
            .Cells(cellaPos.row, 2) = articolo    '... inserisci l'articolo
            .Cells(cellaPos.row, 7) = quantità    '... inserisci la quantità
            MsgBox "magazzino aggiornato"         'operazione correttamente completata
        Else
            MsgBox "posizione non libera, trovato articolo " & .Cells(cellaPos.row, 2) 'la colonna B è già impegnata
        End If
    End With
     
    ActiveSheet.Protect "123456"
     
End Sub

With sh1
    pos = .Range("D3") & .Range("E3") & Format(.Range("F3"), "00") 'costruisci il codice pos
    articolo = .Range("D4")
    quantità = .Range("D5")
End With