Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
same function edit vba excel
same function edit vba excel
Dim ws As Worksheet Dim i As Long '~~ Change this to the relevant sheet Set ws = Sheet1 With ws For i = 1 To 16 .Cells(i, "A").Value = .Cells(i, "E").Value .Cells(i, "B").Value = .Cells(i, "F").Value .Cells(i, "C").Value = .Cells(i, "G").Value Next i End With I have VBA Excel as above. in order to function like the code below what I need to change, yeah Dim lastRowCount As Integer totalRow = (Cells(Rows.Count, 1).End(xlUp).Row) Dim DataRange As Variant Dim i As Integer Dim firstRowCount As Integer firstRowCount = Target.Row i = 0 DataRange = Sheets("Sheet1").Range("A" & firstRowCount & ":C" & firstRowCount).Value For Each Item In DataRange i = i + 1 Next Dim jsonstring As String jsonstring = "["& Code1 & Code2 & Code3& "]" what I changed to be used |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
same function edit vba excel
Hi,
Am Sun, 8 Mar 2020 20:57:14 -0700 (PDT) schrieb : same function edit vba excel try: Dim ws As Worksheet Dim i As Long Dim LRow As Long '~~ Change this to the relevant sheet Set ws = Sheets("Sheet1") With ws LRow = .Cells(.Rows.Count, "E").End(xlUp).Row For i = 1 To LRow .Cells(i, "A").Resize(, 3).Value = _ .Cells(i, "E").Resize(, 3).Value Next i End With Regards Claus B. -- Windows10 Office 2016 |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
same function edit vba excel
thank you for the answer Claus Busch
https://i.imgur.com/wo2u67e.jpg im trying red line not moved right, is there a solution for that |
#4
Posted to microsoft.public.excel.programming
|
|||
|
|||
same function edit vba excel
im try
Sub List1() Dim ws As Worksheet Dim i As Long Dim LRow As Long '~~ Change this to the relevant sheet Set ws = Sheets("Sheet1") With ws LRow = .Cells(.Rows.Count, "E").End(xlUp).Row For i = 1 To LRow .Cells(i, "A").Cells(, 3).Value = _ .Cells(i, "E").Cells(, 3).Value Next i End With End Sub Sub List2() Dim ws As Worksheet Dim i As Long Dim LRow As Long '~~ Change this to the relevant sheet Set ws = Sheets("Sheet1") With ws LRow = .Cells(.Rows.Count, "E").End(xlUp).Row For i = 1 To LRow .Cells(i, "B").Cells(, 1).Value = _ .Cells(i, "F").Cells(, 1).Value Next i End With End Sub Sub List3() Dim ws As Worksheet Dim i As Long Dim LRow As Long '~~ Change this to the relevant sheet Set ws = Sheets("Sheet1") With ws LRow = .Cells(.Rows.Count, "E").End(xlUp).Row For i = 1 To LRow .Cells(i, "C").Cells(, 1).Value = _ .Cells(i, "G").Cells(, 1).Value Next i End With End Sub Sub callList() Call List1 Call List2 Call List3 End Sub and same with result https://i.imgur.com/wo2u67e.jpg |
#5
Posted to microsoft.public.excel.programming
|
|||
|
|||
same function edit vba excel
im try
Sub List1() Dim ws As Worksheet Dim i As Long Dim LRow As Long '~~ Change this to the relevant sheet Set ws = Sheets("Sheet1") With ws LRow = .Cells(.Rows.Count, "E").End(xlUp).Row For i = 1 To LRow .Cells(i, "A").Cells(, 1).Value = _ .Cells(i, "E").Cells(, 1).Value Next i End With End Sub Sub List2() Dim ws As Worksheet Dim i As Long Dim LRow As Long '~~ Change this to the relevant sheet Set ws = Sheets("Sheet1") With ws LRow = .Cells(.Rows.Count, "E").End(xlUp).Row For i = 1 To LRow .Cells(i, "B").Cells(, 1).Value = _ .Cells(i, "F").Cells(, 1).Value Next i End With End Sub Sub List3() Dim ws As Worksheet Dim i As Long Dim LRow As Long '~~ Change this to the relevant sheet Set ws = Sheets("Sheet1") With ws LRow = .Cells(.Rows.Count, "E").End(xlUp).Row For i = 1 To LRow .Cells(i, "C").Cells(, 1).Value = _ .Cells(i, "G").Cells(, 1).Value Next i End With End Sub Sub callList() Call List1 Call List2 Call List3 End Sub and same with result https://i.imgur.com/wo2u67e.jpg |
#6
Posted to microsoft.public.excel.programming
|
|||
|
|||
same function edit vba excel
|
#7
Posted to microsoft.public.excel.programming
|
|||
|
|||
same function edit vba excel
|
#8
Posted to microsoft.public.excel.programming
|
|||
|
|||
same function edit vba excel
can only fill in the last column of data that hasn't been filled yet,
No need to fill in the fields from the start. only fill in data that doesn't yet exist in vba same the above function, now you fill in from beginning to end. |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Edit Comment Function | Excel Discussion (Misc queries) | |||
Edit Function with Keyboard | Excel Programming | |||
Using "Find" function in Excel 2000, edit data without closing Fin | Excel Discussion (Misc queries) | |||
Why can't I edit my excel document? Edit buttons shaded. | New Users to Excel |