ChatGPT right ???

Rurkz · Jan 2nd 2023

so i tried asking chatbot this question and im not sure if this is right.....

In excel How do I use VBA to copy cells "C3" in sheet 1 to cell "E23" in sheet 2, cell "E3" in sheet 1 to cell "F5" in sheet 2, cell "G3" in sheet 1 to cell "B22" in sheet 2, cell "H3" in sheet 1 to cell "B13"in sheet 2, cell "I3" in sheet 1 to cell "B20" in sheet 2, cell "K3" in sheet 1 to cell "C20" in sheet 2 starting from row 3 from sheet 1 only if cell "E3" in sheet 1 is filled in and if column "K" in sheet 1 is filled in afterwards.

this is the code i got

Code

Sub CopyCells()

'Declare variables
Dim ws1 As Worksheet
Dim ws2 As Worksheet

'Set worksheets
Set ws1 = Worksheets("Sheet1")
Set ws2 = Worksheets("Sheet2")

'Check if cell E3 in Sheet1 is filled in
If ws1.Range("E3").Value <> "" Then
    'Copy cell C3 from Sheet1 to cell E23 in Sheet2
    ws2.Range("E23").Value = ws1.Range("C3").Value
    'Copy cell E3 from Sheet1 to cell F5 in Sheet2
    ws2.Range("F5").Value = ws1.Range("E3").Value
    'Copy cell G3 from Sheet1 to cell B22 in Sheet2
    ws2.Range("B22").Value = ws1.Range("G3").Value
    'Copy cell H3 from Sheet1 to cell B13 in Sheet2
    ws2.Range("B13").Value = ws1.Range("H3").Value
    'Copy cell I3 from Sheet1 to cell B20 in Sheet2
    ws2.Range("B20").Value = ws1.Range("I3").Value
    
    'Check if cell K3 in Sheet1 is filled in
    If ws1.Range("K3").Value <> "" Then
        'Copy cell K3 from Sheet1 to cell C20 in Sheet2
        ws2.Range("C20").Value = ws1.Range("K3").Value
    End If
End If

End Sub

Display More

jp_cheng · Jan 2nd 2023

dont use chatgpt or none of us will have jobs in the future;)

Rurkz · Jan 2nd 2023

so you saying it was correct lol

**Carim** · Jan 2nd 2023

Hopefully ... you have applied in a test file ... to find out if you are getting your expected result ...

The code itself does not show mistakes but does it perform the task you anticipated ... ???

Rurkz · Jan 2nd 2023

lol I haven't tried it yet....CARIM!!!!!! Been really busy, well try later!!!

**S O** · Jan 2nd 2023

It's a very close hit, but I suspect you'll see a minor tweak that needs to happen Very interesting to see these results though!

Rurkz · Jan 3rd 2023

I know right, I didn't have time to test it today, I'll do soon tomorrow lol

**Carim** · Jan 3rd 2023

Quote from S O

It's a very close hit, but I suspect you'll see a minor tweak that needs to happen Very interesting to see these results though!

Hi Sam,

You are absolutely right !!!

What would be extremely interesting, in my opinion, is to know :

1. How is ChatGPT helping out any user to properly define and describe his need ???

2. Once a proposal is designed, is ChatGPT ultimately providing more Autonomy or more Dependency ???

**S O** · Jan 3rd 2023

I think it's crazy that ChatGPT is actually still only in testing and it's producing results like this. With the amount of attention it's gathered and the amount of test data it's consuming at the moment it's exciting (and slightly scary!) to see where the technology will lead.

Rurkz · Jan 4th 2023

so i tweaked the question

In excel How do I use VBA to copy text only in cells "A3" from sheet 1 to cell "B23" from sheet 2, cells "B3" from sheet 1 to cell "C23" from sheet 2, cell "C3" from sheet 1 to cell "E23" from sheet 2, cell "E3" from sheet 1 to cell "F5" from sheet 2, cell "G3" from sheet 1 to cell "B22" from sheet 2, cell "H3" from sheet 1 to cell "B13"from sheet 2, cell "L3" from sheet 1 to cell "B20" from sheet 2, cell "K3" from sheet 1 to cell "C20" from sheet 2 starting from row 3 from sheet 1 only if cell "E3" from sheet 1 is filled in and if column "K" from sheet 1 is filled in afterwards.

got this

Code

Sub CopyCells()
  Dim ws1 As Worksheet
  Dim ws2 As Worksheet
  Dim rng As Range
  
  Set ws1 = ThisWorkbook.Sheets("Sheet1")
  Set ws2 = ThisWorkbook.Sheets("Sheet2")
  
  ' Check if cell "E3" in sheet1 is filled
  If Not IsEmpty(ws1.Range("E3")) Then
    ' Copy cell "A3" from sheet1 to cell "B23" in sheet2
    ws1.Range("A3").Copy ws2.Range("B23")
    
    ' Copy cell "B3" from sheet1 to cell "C23" in sheet2
    ws1.Range("B3").Copy ws2.Range("C23")
    
    ' Copy cell "C3" from sheet1 to cell "E23" in sheet2
    ws1.Range("C3").Copy ws2.Range("E23")
    
    ' Copy cell "E3" from sheet1 to cell "F5" in sheet2
    ws1.Range("E3").Copy ws2.Range("F5")
    
    ' Copy cell "G3" from sheet1 to cell "B22" in sheet2
    ws1.Range("G3").Copy ws2.Range("B22")
    
    ' Copy cell "H3" from sheet1 to cell "B13" in sheet2
    ws1.Range("H3").Copy ws2.Range("B13")
  End If
  
  ' Check if column "K" in sheet1 is filled
  Set rng = ws1.Range("K3:K" & ws1.Rows.Count)
  If Application.WorksheetFunction.CountA(rng) > 0 Then
    ' Copy cell "L3" from sheet1 to cell "B20" in sheet2
    ws1.Range("L3").Copy ws2.Range("B20")
    
    ' Copy cell "K3" from sheet1 to cell "C20" in sheet2
    ws1.Range("K3").Copy ws2.Range("C20")
  End If
End Sub

Display More

but it didnt lol HAHAHAHAH

Rurkz · Jan 4th 2023

tried it again, and it seems this code some what works

Code

Sub CopyText()
    Dim sourceSheet As Worksheet
    Dim targetSheet As Worksheet
    Dim sourceRange As Range
    Dim targetRange As Range
    Dim sourceRow As Long
    Dim targetRow As Long

    'Set the source sheet and target sheet
    Set sourceSheet = Worksheets("Sheet1")
    Set targetSheet = Worksheets("Sheet2")

    'Start at row 3 in the source sheet
    sourceRow = 3

    'Loop through rows in the source sheet
    Do Until sourceSheet.Cells(sourceRow, 1).Value = ""
        'Check if column E and K are filled in
        If sourceSheet.Cells(sourceRow, 5).Value <> "" And sourceSheet.Cells(sourceRow, 11).Value <> "" Then
            'Set the source range and target range
            Set sourceRange = sourceSheet.Range("A" & sourceRow)
            Set targetRange = targetSheet.Range("B23")
            'Copy the text from the source range to the target range
            targetRange.Value = sourceRange.Text

            Set sourceRange = sourceSheet.Range("B" & sourceRow)
            Set targetRange = targetSheet.Range("C23")
            targetRange.Value = sourceRange.Text

            Set sourceRange = sourceSheet.Range("C" & sourceRow)
            Set targetRange = targetSheet.Range("E23")
            targetRange.Value = sourceRange.Text

            Set sourceRange = sourceSheet.Range("E" & sourceRow)
            Set targetRange = targetSheet.Range("F5")
            targetRange.Value = sourceRange.Text

            Set sourceRange = sourceSheet.Range("G" & sourceRow)
            Set targetRange = targetSheet.Range("B22")
            targetRange.Value = sourceRange.Text

            Set sourceRange = sourceSheet.Range("H" & sourceRow)
            Set targetRange = targetSheet.Range("B13")
            targetRange.Value = sourceRange.Text

            Set sourceRange = sourceSheet.Range("L" & sourceRow)
            Set targetRange = targetSheet.Range("B20")
            targetRange.Value = sourceRange.Text

            Set sourceRange = sourceSheet.Range("K" & sourceRow)
            Set targetRange = targetSheet.Range("C20")
            targetRange.Value = sourceRange.Text
        End If
        'Move to the next row in the source sheet
        sourceRow = sourceRow + 1
    Loop
End Sub

Display More

**Carim** · Jan 4th 2023

From your comments and your various attempts, it would seem the main challenge is no longer to write a macro ...

BUT to exactly describe ... and clearly write down your need ...

Rurkz · Jan 5th 2023

hahaha yes, this is kinda crazy, have to word it carefully and may need to repeat the question more than once lol

Rurkz · Jan 5th 2023

I can now become a excel vba pro like you!!

**KjBox** · Jan 5th 2023

Do you mean this:

If A3 in sheet1 is not blank AND Sheet1 Column K all rows in table are completely filled in then

Copy Sheet1 A3 to Sheet2 B23
Copy Sheet1 B3 to Sheet2 C23
Copy Sheet1 C3 to Sheet2 E23
Copy Sheet1 D3 to Sheet2 F23
Copy Sheet1 G3 to Sheet2 B22
Copy Sheet1 H3 to Sheet2 B13
Copy Sheet1 L3 to Sheet2 B20
Copy Sheet1 K3 to Sheet2 C20

Or this

If A3 in sheet1 is not blank then

Copy Sheet1 A3 to Sheet2 B23
Copy Sheet1 B3 to Sheet2 C23
Copy Sheet1 C3 to Sheet2 E23
Copy Sheet1 D3 to Sheet2 F23
Copy Sheet1 G3 to Sheet2 B22
Copy Sheet1 H3 to Sheet2 B13

And if Sheet1 Column K all rows in table are completely filled in then

Copy Sheet1 G3 to Sheet2 B22
Copy Sheet1 H3 to Sheet2 B13

**Carim** · Jan 5th 2023

Quote from Rurkz

I can now become a excel vba pro like you!!

In your opinion, is ChatGPT a good learning tool ?

bry02 · Jan 6th 2023

wow after all my readings, watching videos and learning by my self, i did not realized that there is an AI for this. guess that i'm still living in the dark age hahaha.

but in my opinion using this AI is like playing a video gaming. you jump into main boss and finish it, but you can't get the reward coz you skipped the quest haha

well, if it helps, it helps

**Carim** · Jan 6th 2023

Artificial Intelligence has been invading our daily lives in many areas : Google Translate, Waze, Autonomous cars, etc ...

And ChatGPT is only the beginning ... CES 2023 is currently revealing some crazy tech !!!

Rurkz · Jan 12th 2023

well organized!!, its actually the first one

Quote from KjBox

Do you mean this:

If A3 in sheet1 is not blank AND Sheet1 Column K all rows in table are completely filled in then
Copy Sheet1 A3 to Sheet2 B23
Copy Sheet1 B3 to Sheet2 C23
Copy Sheet1 C3 to Sheet2 E23
Copy Sheet1 D3 to Sheet2 F23
Copy Sheet1 G3 to Sheet2 B22
Copy Sheet1 H3 to Sheet2 B13
Copy Sheet1 L3 to Sheet2 B20
Copy Sheet1 K3 to Sheet2 C20
Or this

If A3 in sheet1 is not blank then
Copy Sheet1 A3 to Sheet2 B23
Copy Sheet1 B3 to Sheet2 C23
Copy Sheet1 C3 to Sheet2 E23
Copy Sheet1 D3 to Sheet2 F23
Copy Sheet1 G3 to Sheet2 B22
Copy Sheet1 H3 to Sheet2 B13
And if Sheet1 Column K all rows in table are completely filled in then
Copy Sheet1 G3 to Sheet2 B22
Copy Sheet1 H3 to Sheet2 B13

Display More

**KjBox** · Jan 13th 2023

Try the attached test file, click the "Copy Data" button on Sheet1

Rather than modify the code you got from ChatGPT, I made a new, more efficient code.

Code assigned to the button:

Code

Sub CopyData()
    Dim ws1 As Excel.Worksheet, ws2 As Excel.Worksheet, lRow&
    Set ws1 = Worksheets("Sheet1"): Set ws2 = Worksheets("Sheet2")
    
    With ws1
        lRow = .Cells(.Rows.Count, 1).End(xlUp).Row - 2
        Application.ScreenUpdating = 0
        If .Cells(3, 1) <> vbNullString _
        And Application.CountA(.Cells(3, 11).Resize(lRow)) = lRow Then
            ws2.[b23] = .[a3]: ws2.[c23] = .[b3]: ws2.[e23] = .[c3]: ws2.[f23] = .[d3]
            ws2.[b22] = .[g3]: ws2.[b13] = .[h3]: ws2.[b20] = .[l3]: ws2.[c20] = .[k3]
        End If
    End With
    
End Sub

Display More

ChatGPT right ???

Carim Jan 3rd 2023

Participate now!

Share

Users Viewing This Thread