거래처관리_120_well_매트로VBA
^^ Sub 저장() Dim r As Integer r = Sheets("거래처대장").Range("A3").End(xlDown).Row + 1 Sheets("거래처대장").Cells(r, 1) = Sheets("거래처카드").Range("E5") Sheets("거래처대장").Cells(r, 2) = Sheets("거래처카드").Range("G5") Sheets("거래처대장").Cells(r, 3) = Sheets("거래처카드").Range("E6") If Sheets("거래처카드").Range("J1") = 1 Then Sheets("거래처대장").Cells(r, 4) = "법인" Else Sheets("거래처대장").Cells(r, 4) = "개인" End If Sheets("거래처대장").Cells..