Satır Kopyala yapıştır

[selocanexcel]

Merhaba;
Aşağıda belirttiğim konuda yardımcı olabilirmisiniz.
işleyiş olarak abc isimli dosyanın ISIMLER sayfasından seçim yapılacak butona tıklandığında xyz isimli excell dosyasında PVT isimli sayfada aynı satıra yapıştıracak. Seçilip kopyalanan satır numarası ile yapıştırılacak satır numarası aynı olacak. satırın tamamı kopyalama ve yapıştırma işlemine tabi olacak

Örnek1:abc isimli excell dosyasının ISIMLER sayfasında seçilen Aktif satırı kopyalayıp (örnek: 8. satır) xyz isimli excell dosyasında PVT isimli sayfada aynı satıra (8. satıra) yapıştırsın.

Örnek2:abc isimli excell dosyasının ISIMLER sayfasında seçilen Aktif satırı kopyalayıp (örnek: 55. satır) xyz isimli excell dosyasında PVT isimli sayfada aynı satıra (55. satıra) yapıştırsın.

 

[selocanexcel]

merhaba;
konuya yardımcı olabilecek bir arkadaşımız varmıdır acaba.

 

[Muzaffer Ali]

Merhaba.
Aktif dosya, sayfa ve satırı kopyalamak için aşağıdaki kodu kullanın.
Yapıştırılacak dosya adı ve sayfa adını kendinize göre değiştirin.

Rows(ActiveCell.Row).Copy Workbooks("DosyaAdı.xlsx").Worksheets("Sayfaİsmi").Rows(ActiveCell.Row)

 

[selocanexcel]

Merhaba.
Aktif dosya, sayfa ve satırı kopyalamak için aşağıdaki kodu kullanın.
Yapıştırılacak dosya adı ve sayfa adını kendinize göre değiştirin.

Rows(ActiveCell.Row).Copy Workbooks("DosyaAdı.xlsx").Worksheets("Sayfaİsmi").Rows(ActiveCell.Row)

öncelikle ilginize teşekkür ederim,
yapıştırılan dosyada herhangibir seçim yapmadan bu işlemin gerçekleştirilmesi gerekiyor. yani kopyaladığımız sayfadan kaçıncı satırı kopyaladığımızı algılayıp yapıştırılacak sayfada ilgili satırı bulup yapıştırması gerekiyor. Yapıştırılacak sayfada mause ile herhangibir seçime gerek olmaksızın bu işlemin yapılması gerekiyor.

 

[Muzaffer Ali]

Lütfen kodu dener misiniz?

 

[selocanexcel]

Lütfen kodu dener misiniz?

kodu denedim;
yapıştırılan dosya açıkken işlemi yapıyor. fakat bu makroyla yapıştırma yapacağım dosya kapalı durumda olduğundan kod çalışmadı. yapıştırma yapılan dosya veritabanı olarak kullanılıyor ve dışa veri veriyor. işlemler yapıldıktan son hemen kapatılması gerekiyor.

dosyanın yolu aşağıdaki kibidir.
Workbooks.Open Filename:="\\192.168.2.10\Ortak\tgsprogram\veritabani\PLvtpx.xlsm"


bahsettiğim senaryoya göre kodlar nasıl olmalı.

 

[Muzaffer Ali]

"Sayfaİsmi" yerine yapıştırılacak sayfa ismini yazın.

Sub test()
    Dim wb As Workbook
    Set wb = Workbooks.Open(Filename:="\\192.168.2.10\Ortak\tgsprogram\veritabani\PLvtpx.xlsm")
    Rows(ActiveCell.Row).Copy wb.Worksheets("Sayfaİsmi").Rows(ActiveCell.Row)
    wb.Close True
End Sub

 

[selocanexcel]

"Sayfaİsmi" yerine yapıştırılacak sayfa ismini yazın.

Kodun düzenlemesi aşağıdaki gibi. yapıştıtılacak dosya açılıp kapınıyor, makro sonuçlanıyor fakat yapıştırma yapılan dosyada herhangibir güncelleme olmuyor(yapıştırma işlemi gerçekleşmiyor)

Private Sub CommandButton7_Click()
Dim wb As Workbook
Set wb = Workbooks.Open(Filename:="\\192.168.2.10\Ortak\tgsprogram\veritabani\PLvtpx.xlsm")
Rows(ActiveCell.Row).Copy wb.Worksheets("pvt").Rows(ActiveCell.Row)
wb.Close True
End Sub

 

[Muzaffer Ali]

PLvtpx.xlsm adlı dosyanızın ağdaki herhangi bir bilgisayarda açık olmaması lazım.

 

[selocanexcel]

PLvtpx.xlsm adlı dosyanızın ağdaki herhangi bir bilgisayarda açık olmaması lazım.

PLvtpx.xlsm adlı dosyanızın ağdaki herhangi bir bilgisayarda açık olmaması lazım.

dosyalar şuanda test aşamasında, dolayısıyla aktif kullanımı yok. dediğiniz gibi doğrulama amaçlı açık olup olmadığınıda kontrol ettim. fakat işlem gerçekleşmiyor. kodda birşey atlıyor olabilirmiyiz.

 

[Muzaffer Ali]

Birde şöyle deneyin.

Sub test()
    Dim wb As Workbook
    Set wb = Workbooks.Open(Filename:="\\192.168.2.10\Ortak\tgsprogram\veritabani\PLvtpx.xlsm")
    Rows(ActiveCell.Row).Copy wb.Worksheets("Sayfaİsmi").Rows(ActiveCell.Row)
    wb.save
    wb.Close
End Sub

 

[selocanexcel]

Birde şöyle deneyin.

Sub test()
    Dim wb As Workbook
    Set wb = Workbooks.Open(Filename:="\\192.168.2.10\Ortak\tgsprogram\veritabani\PLvtpx.xlsm")
    Rows(ActiveCell.Row).Copy wb.Worksheets("Sayfaİsmi").Rows(ActiveCell.Row)
    wb.save
    wb.Close
End Sub

kaydet koduylada denedim ama olmadı. Acaba kopyalama işlemini yapıştıracağı sayfadan yapıyor olabilirmi?

 

[selocanexcel]

kaydet koduylada denedim ama olmadı. Acaba kopyalama işlemini yapıştıracağı sayfadan yapıyor olabilirmi?

Muzaffer bey kodu aşağıdaki şekilde güncelledim ve çalıştı. yardımlarınız için çok teşekkür ederim.

Private Sub CommandButton7_Click()
Dim wb As Workbook
Set wb = Workbooks.Open(Filename:="\\192.168.2.10\Ortak\tgsprogram\veritabani\PLvtpx.xlsm")
Windows("operator53.xlsm").Activate
Rows(ActiveCell.Row).Copy wb.Worksheets("pvt").Rows(ActiveCell.Row)
wb.Close True
End Sub

 

[Muzaffer Ali]

O zaman aşağıdaki gibi yapın.
"SayfaAdı"yerine kopyalanacak sayfa adını yazın.

Private Sub CommandButton7_Click()
Dim wb As Workbook
Set wb = Workbooks.Open(Filename:="\\192.168.2.10\Ortak\tgsprogram\veritabani\PLvtpx.xlsm")
Workbooks("operator53.xlsm").worksheets("SayfaAdı").Rows(ActiveCell.Row).Copy wb.Worksheets("pvt").Rows(ActiveCell.Row)
wb.Close True
End Sub