istenilen hücreye yapıştırma

[selocanexcel]

aşağıdaki kodla kopyaladığım aktif satırı a2 hücresine yapıştırmak istiyorum fakat kodun nasıl olcağını çözemedim. kalın punto ile belirtilmiş yere hangi kodu yazmalıyım yardımcı olabilirmisiniz .

Dim wb As Workbook
Set wb = Workbooks.Open(Filename:="\\192.168.2.10\Ortak\tgsprogram\veritabani\PLvtpx.xlsm")
Workbooks("operator53.xlsm").Worksheets("pvt").Rows(ActiveCell.Row).Copy wb.Worksheets("pvt").Row(a2)

 

[ÖmerFaruk]

.Rows(2)

 

[selocanexcel]

.Rows(2)

teşekkür ederim kod hata vermiyor yapıştırma işlemi başarılı ama seçilen aktif satırı yapıştırmıyor. farklı satırı yapıştırıyor. kodda hatam mı var acaba.

Private Sub CommandButton6_Click()

Dim wb As Workbook
Set wb = Workbooks.Open(Filename:="\\192.168.2.10\Ortak\tgsprogram\veritabani\PLvtpx.xlsm")
Workbooks("operator53.xlsm").Worksheets("pvt").Rows(ActiveCell.Row).Copy wb.Worksheets("pvt").Rows(2)
Selection.ListObject.ListRows.Add (1)
wb.Close True
ActiveWorkbook.RefreshAll

End Sub

 

[ÖmerFaruk]

Aşağıdaki gibi denermsisin.

Private Sub CommandButton6_Click()
Dim wb As Workbook
    SatNo=ActiveCell.Row
    Set wb = Workbooks.Open(Filename:="\\192.168.2.10\Ortak\tgsprogram\veritabani\PLvtpx.xlsm")
    Workbooks("operator53.xlsm").Worksheets("pvt").Rows(SatNo).Copy wb.Worksheets("pvt").Rows(SatNo)
    Selection.ListObject.ListRows.Add (1)
    wb.Close True
    ActiveWorkbook.RefreshAll
End Sub

 

[selocanexcel]

Aşağıdaki gibi denermsisin.

Private Sub CommandButton6_Click()
Dim wb As Workbook
    SatNo=ActiveCell.Row
    Set wb = Workbooks.Open(Filename:="\\192.168.2.10\Ortak\tgsprogram\veritabani\PLvtpx.xlsm")
    Workbooks("operator53.xlsm").Worksheets("pvt").Rows(SatNo).Copy wb.Worksheets("pvt").Rows(SatNo)
    Selection.ListObject.ListRows.Add (1)
    wb.Close True
    ActiveWorkbook.RefreshAll
End Sub

C++:

Ömer faruk bey kodu belirttiğiniz gibi düzenledim ve rows 2 yaptım istenilen şekilde çalışıyor. ilginize çok teşekkür ederim.

Private Sub CommandButton6_Click()
Dim wb As Workbook
SatNo=ActiveCell.Row
Set wb = Workbooks.Open(Filename:="\\192.168.2.10\Ortak\tgsprogram\veritabani\PLvtpx.xlsm")
Workbooks("operator53.xlsm").Worksheets("pvt").Rows(SatNo).Copy wb.Worksheets("pvt").Rows(2)
Selection.ListObject.ListRows.Add (1)
wb.Close True
ActiveWorkbook.RefreshAll
End Sub