sharky12345
09-30-2015, 03:58 AM
Can anyone spot why this isn't copying all data across?
It's doing the first value in column A fine, but every column after that remains unchanged;
Row = ListBox1.ListIndex + 3
Sheets("Referrals").Range("A" & Row).Value = TextSerial.Text
Sheets("Referrals").Range("B" & Row).Value = TextCRM.Value
Sheets("Referrals").Range("C" & Row).Value = TextIssue.Text
Sheets("Referrals").Range("D" & Row).Value = TextReferral.Text
Sheets("Referrals").Range("J" & Row).Value = ComboType.Value
Sheets("Referrals").Range("L" & Row).Value = TextRef.Text
Sheets("Referrals").Range("F" & Row).Value = ComboArea.Value
Sheets("Referrals").Range("G" & Row).Value = ComboGroup.Value
Sheets("Referrals").Range("H" & Row).Value = TextOfficer.Text
Sheets("Referrals").Range("K" & Row).Value = TextIndex.Text
Sheets("Referrals").Range("I" & Row).Value = TextComments.Text
Posted elsewhere too: http://www.mrexcel.com/forum/excel-questions/886453-copy-data-cells-not-working.html
It's doing the first value in column A fine, but every column after that remains unchanged;
Row = ListBox1.ListIndex + 3
Sheets("Referrals").Range("A" & Row).Value = TextSerial.Text
Sheets("Referrals").Range("B" & Row).Value = TextCRM.Value
Sheets("Referrals").Range("C" & Row).Value = TextIssue.Text
Sheets("Referrals").Range("D" & Row).Value = TextReferral.Text
Sheets("Referrals").Range("J" & Row).Value = ComboType.Value
Sheets("Referrals").Range("L" & Row).Value = TextRef.Text
Sheets("Referrals").Range("F" & Row).Value = ComboArea.Value
Sheets("Referrals").Range("G" & Row).Value = ComboGroup.Value
Sheets("Referrals").Range("H" & Row).Value = TextOfficer.Text
Sheets("Referrals").Range("K" & Row).Value = TextIndex.Text
Sheets("Referrals").Range("I" & Row).Value = TextComments.Text
Posted elsewhere too: http://www.mrexcel.com/forum/excel-questions/886453-copy-data-cells-not-working.html