Previous page | 1 | Next page
Facebook  

inserisci in sequenza dati selezionati da range in celle

Last Update: 8/13/2019 11:45 AM
Author
Print | Email Notification    
Post: 13
Registered in: 9/4/2017
Location: GENOVA
Age: 42
Junior User
Excel 2016
OFFLINE
8/13/2019 9:42 AM
 
Modify
 
Delete
 
Quote

ciao a tutti
vorrei gentilmente chiedervi un aiuto
come da titolo avrei la necessità di inserire dei dati selezionati al clic dal range B5:B21 e di copiarli in sequenza nelle celle E3,F3,G3sarebbe a dire che il primo dato selezionato a scelta dalla lista B5:B21, venga posto in E3 il secondo dato selezionato venga posto nella F3 e il terzo dato nella G3 e quando seleziono un quarto dato venga riposto di nuovo nella cella E3 cancellando i dati inseriti in precedenza nelle celle F3 e G3 per poi poter selezionare i nuovi dati da inserire in F3 e G3
se non sono stato abbastanza chiaro provo ad allegare un file di esempio

ringrazio e saluto tutti
Elvis
popolare le textbox di una UserForm con i dati letti da celle dati8/5/2019 11:50 AM by roberto pironi
Scrivere su 2 celle diverse su 2 Fogli diversi vbacelle7/21/2019 9:03 PM by Alessandro Zannella
Cancellare dati di una colonna da un altradati8/4/2019 10:52 PM by ges64
Post: 5,737
Registered in: 11/14/2004
Master User
Versione Excel
OFFLINE
8/13/2019 10:08 AM
 
Modify
 
Delete
 
Quote

Inserisci dati
Ciao, sarebbe meglio il file dati, togli dati sensibili, cosi si ha una base su cui lavorare.

Ciao By Sal [SM=x423051]

Excel 2013

Iscriviti al nuovo sito che ho aperto troverai altre RISPOSTE

https://www.bysal-excel.it
Post: 2,336
Registered in: 4/6/2013
Location: ROMA
Age: 71
Veteran User
2010
OFFLINE
8/13/2019 10:40 AM
 
Modify
 
Delete
 
Quote

Ciao
su evento doppio click del foglio interessato:
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Intersect(Target, Range("B5:B21")) Is Nothing Then
    For c = 5 To 7
        If Cells(3, c) = "" Then
            Cells(3, c) = Target.Value
            Exit For
        End If
    Next
    If c = 8 Then
        Range("E3:G3").ClearContents
        Cells(3, 5) = Target.Value
    End If
End If
Cancel = True
End Sub


saluti



Domenico
Win 10 - Excel 2016
Post: 13
Registered in: 9/4/2017
Location: GENOVA
Age: 42
Junior User
Excel 2016
OFFLINE
8/13/2019 11:45 AM
 
Modify
 
Delete
 
Quote

GENIALE !!!!! [SM=x423030] GRAZIEEEEE
Admin Thread: | Close | Move | Delete | Modify | Email Notification Previous page | 1 | Next page
New Thread
 | 
Reply
Cerca nel forum
Tag discussione
Discussioni Simili   [vedi tutte]
Home Forum | Bacheca | Album | Users | Search | Log In | Register | Admin
Tutti gli orari sono GMT+01:00. Adesso sono le 5:44 AM. : Printable | Mobile | Regolamento | Privacy
FreeForumZone [v.5.0.0] - Copyright © 2000-2019 FFZ srl - www.freeforumzone.com