Copy dynamic data, fill in
Closed
Genae
Posts
2
Registration date
Wednesday September 26, 2012
Status
Member
Last seen
September 27, 2012
-
Sep 27, 2012 at 03:27 PM
venkat1926 Posts 1863 Registration date Sunday June 14, 2009 Status Contributor Last seen August 7, 2021 - Sep 28, 2012 at 02:41 AM
venkat1926 Posts 1863 Registration date Sunday June 14, 2009 Status Contributor Last seen August 7, 2021 - Sep 28, 2012 at 02:41 AM
Related:
- Copy dynamic data, fill in
- Tmobile data check - Guide
- Gta 5 data download for pc - Download - Action and adventure
- Digital data transmission - Guide
- Display two columns in data validation list but return only one - Guide
- Data transmission cable - Guide
1 response
venkat1926
Posts
1863
Registration date
Sunday June 14, 2009
Status
Contributor
Last seen
August 7, 2021
811
Sep 28, 2012 at 02:41 AM
Sep 28, 2012 at 02:41 AM
quote
1) '2 Voice-Evac'
2) '3 FARADAY'
3) '4 SINORIX'
4) '5 Sig Bat'
5) 'MATL LIST' (columns G:I must not change)
unquote
not clear
take a new work book with one sheet called MAIL LIST and the names of other sheets not relevant
goto vb editor (alt F11.hit control+R
you see all the opened workbooks
go to this relevant file and under this righclick the expression "thisworkbook"
in the window that opens copy this EVENT CODE
now goto any sheet other than the sheet Mail List and enter some data in column E.
then got0 some other sheet (other than mail list) and enter a data in column E
now go to Mail list sheet see what happens
now if it is ok you can use this in a DUPLICAGTE OF YOUR FILE. KEEP THE ORIGINAL FILE SOMEWHERE SO THAT ORIGINAL IS NOT MESSED UP
1) '2 Voice-Evac'
2) '3 FARADAY'
3) '4 SINORIX'
4) '5 Sig Bat'
5) 'MATL LIST' (columns G:I must not change)
unquote
not clear
take a new work book with one sheet called MAIL LIST and the names of other sheets not relevant
goto vb editor (alt F11.hit control+R
you see all the opened workbooks
go to this relevant file and under this righclick the expression "thisworkbook"
in the window that opens copy this EVENT CODE
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
If Target.Column <> 5 Then Exit Sub
Application.EnableEvents = False
If ActiveSheet.Name = "MAT LIST" Then GoTo exiting
If Target <> 0 Then
Range(Cells(Target.Row, "B"), Cells(Target.Row, "G")).Copy
With Worksheets("MAT LIST")
.Cells(Rows.Count, "D").End(xlUp).Offset(1, 0).Offset(0, -3).PasteSpecial
If .Cells(Rows.Count, "A").End(xlUp).Row = 2 Then
.Range("A1:A3").EntireRow.Insert
End If
End With
End If
exiting:
Application.EnableEvents = True
Application.CutCopyMode = False
End Sub
now goto any sheet other than the sheet Mail List and enter some data in column E.
then got0 some other sheet (other than mail list) and enter a data in column E
now go to Mail list sheet see what happens
now if it is ok you can use this in a DUPLICAGTE OF YOUR FILE. KEEP THE ORIGINAL FILE SOMEWHERE SO THAT ORIGINAL IS NOT MESSED UP
