Soru Excel Sayfa İçerisinde Kopyalama Sorunu

[berkem13]

Merhabalar, projeme eski bilgisayarımda Office 2016 sürümünde başlamıştım ancak yeni bilgisayara geçip Office 365 satın aldım. Ana Sayfa kitabında bir hücreyi kopyala dediğimde kopyalıyor ancak yapıştırmak istediğim hücreye geçtiğimde kopyalama seçeneği iptal oluyor. Lütfen yardımcı olur musunuz?

 

[berkem13]

Sorunun çözümünü bilen var mı birçok çözüm yolu denedim olmadı. Eski bilgisayarımda tekrardan açtım onda sorun yok. Düzgün bir şekilde kopyalama yapabiliyorum.

 

[Korhan Ayhan]

Kopyalama işlemi iptal oluyorsa bu duruma bir kod (makro) sebebiyet veriyor olabilir. Sayfanızın ya da dosyanızın (ThisWorkbook-BuÇalışmaKitabı) bölümünde kod var mı kontrol ediniz.

 

[YUSUF44]

Nedenini ve kesin çözümünü bilmiyorum ancak bir arkadaşımda şu kodun çalıştırılması geçici olarak düzeltiyordu:

Sub duzelt()
Application.CommandBars("Cell").Reset
End Sub

 

[Korhan Ayhan]

Ek olarak linki inceleyiniz. 17 nolu cevapta bir arkadaşımız çözüm yolu önermiş. Belki sizde de çözüm olur.

Kopyala-Yapıştır yapmıyor. Bir bilen yanıtlasın Lütfen!..

Merhaba Arkadaşlar, Excel 2003 kullanıyorum. Dün itibari ile sitemizden bir dosya indirdim bu dosyayı çalıştırdıktan sonra Kopyala-Yapıştır ve Biçim Boyacısı nı kullanamıyorum. Sorun bilgisayarı resetlediğimde geçici olarak düzeliyor ama 2-3 kopyala-yapıştır yaptıktan sonra tekrar eski durumuna...

www.excel.web.tr

 

[berkem13]

Kopyalama işlemi iptal oluyorsa bu duruma bir kod (makro) sebebiyet veriyor olabilir. Sayfanızın ya da dosyanızın (ThisWorkbook-BuÇalışmaKitabı) bölümünde kod var mı kontrol ediniz.

Üstadım, şu an eski bilgisayarımda Office 2016 ile dosyayı açtığımda böyle bir sorun yok. Üstadım, ThisWorkBook'da bu kodları kullanıyorum:

Private Sub Workbook_Open()
Worksheets("Sabitler").Range("B1") = ActiveWorkbook.Path & "\Nakliyeciler\"
Worksheets("Sabitler").Range("B2") = ActiveWorkbook.Path & "\Petrolcüler\"
Worksheets("Sabitler").Range("B3") = ActiveWorkbook.Path & "\Firmalar\"
Worksheets("Sabitler").Range("E1") = ActiveWorkbook.Path & "\Turlar\"
End Sub

Özet sayfasında change kısmında da bu kodları kullanıyorum:

Private Sub ComboBox3_Change()

End Sub

Private Sub ComboBox5_Change()

End Sub

Private Sub CommandButton1_Click()
Call KasalarveBankalaraKayıt
End Sub

Private Sub CommandButton2_Click()
Call KasaveBankalarCariliKayıt
End Sub

Private Sub CommandButton3_Click()

Call CekveSenetKayıt

End Sub

Private Sub CommandButton4_Click()
Call CekveSenetKayıt
Call CariCekOdeme
End Sub

Private Sub OptionButton1_Click()
If OptionButton1.Value = True Then Worksheets("Sabitler").Range("B14").Value = 1
' HesaplarArasıVirmanGuncelle Makro
    Worksheets("Özet").Range("K25").Select
    Worksheets("Özet").Range("K25").Value = 1
    Worksheets("Özet").Range("K33").Select
End Sub

Private Sub OptionButton2_Click()
If OptionButton2.Value = True Then Worksheets("Sabitler").Range("B14").Value = 2
' HesaplarArasıVirmanGuncelle Makro
    Worksheets("Özet").Range("K25").Select
    Worksheets("Özet").Range("K25").Value = 2
    Worksheets("Özet").Range("K33").Select
End Sub

Private Sub OptionButton3_Click()
If OptionButton3.Value = True Then Worksheets("Sabitler").Range("B14").Value = 3
' HesaplarArasıVirmanGuncelle Makro
    Worksheets("Özet").Range("K25").Select
    Worksheets("Özet").Range("K25").Value = 3
    Worksheets("Özet").Range("K33").Select
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

'Liste Gösterme
Dim MusteriTuru As Variant
MusteriTuru = Worksheets("Sabitler").Range("B6")

If MusteriTuru = 1 Then
ComboBox1.Visible = True
ComboBox2.Visible = False
ComboBox3.Visible = False
ElseIf MusteriTuru = 2 Then
ComboBox1.Visible = False
ComboBox2.Visible = True
ComboBox3.Visible = False
ElseIf MusteriTuru = 3 Then
ComboBox1.Visible = False
ComboBox2.Visible = False
ComboBox3.Visible = True
End If

'Kasa ve Banka, Cari Düğmelerini Gösterme
Dim CariDegeri As Variant
CariDegeri = Worksheets("Özet").Range("A31")

If CariDegeri = 0 Then
CommandButton1.Enabled = True
CommandButton2.Enabled = False
ElseIf CariDegeri = 1 Then
CommandButton1.Enabled = False
CommandButton2.Enabled = True
End If

'Çek ve Senet Cari Düğmelerini Gösterme

If CariDegeri = 0 Then
CommandButton3.Enabled = True
CommandButton4.Enabled = False
ElseIf CariDegeri = 1 Then
CommandButton3.Enabled = False
CommandButton4.Enabled = True
End If

'Virman Liste Gösterme
Dim VirmanBorcluTuru As Variant
VirmanBorcluTuru = Worksheets("Sabitler").Range("B14")

If VirmanBorcluTuru = 1 Then
ComboBox4.Visible = True
ComboBox5.Visible = False
ComboBox6.Visible = False
ElseIf VirmanBorcluTuru = 2 Then
ComboBox4.Visible = False
ComboBox5.Visible = True
ComboBox6.Visible = False
ElseIf VirmanBorcluTuru = 3 Then
ComboBox4.Visible = False
ComboBox5.Visible = False
ComboBox6.Visible = True
End If

End Sub

Nedenini ve kesin çözümünü bilmiyorum ancak bir arkadaşımda şu kodun çalıştırılması geçici olarak düzeltiyordu:

Sub duzelt()
Application.CommandBars("Cell").Reset
End Sub

Denedim ancak çözüm olmadı hocam.

Ek olarak linki inceleyiniz. 17 nolu cevapta bir arkadaşımız çözüm yolu önermiş. Belki sizde de çözüm olur.

Kopyala-Yapıştır yapmıyor. Bir bilen yanıtlasın Lütfen!..

Merhaba Arkadaşlar, Excel 2003 kullanıyorum. Dün itibari ile sitemizden bir dosya indirdim bu dosyayı çalıştırdıktan sonra Kopyala-Yapıştır ve Biçim Boyacısı nı kullanamıyorum. Sorun bilgisayarı resetlediğimde geçici olarak düzeliyor ama 2-3 kopyala-yapıştır yaptıktan sonra tekrar eski durumuna...

www.excel.web.tr

Maalesef burada anlatan da olmadı hocam.

 

[YUSUF44]

Sayfanın Selection olayına kod yazmışsınız ama bunu belirli bir hücre ya da alanla sınırlandırmamışsınız. Sanıyorum bu nedenle her hücre seçiminde kodlar devreye girip işlem yapıyor, dolayısıyla da kopyaladığınız veriyi unutuyor.

 

[berkem13]

Sayfanın Selection olayına kod yazmışsınız ama bunu belirli bir hücre ya da alanla sınırlandırmamışsınız. Sanıyorum bu nedenle her hücre seçiminde kodlar devreye girip işlem yapıyor, dolayısıyla da kopyaladığınız veriyi unutuyor.

Peki bunu nasıl çözebilirim hocam? Office 2016'da da aynı dosyayı açıyorum ve sorun olmuyor.

 

[YUSUF44]

O kodlar gerçekte ne zaman devreye girmesi gerekiyorsa ona göre değiştirilmesi gerekiyor.

 

[Korhan Ayhan]

Şu satırın;

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

Altına aşağıdaki satırı yazıp deneyiniz.

If Application.CutCopyMode = xlCopy Or Application.CutCopyMode = xlCut Then Exit Sub

 

[1Al2Ver]

Merhaba,

Eğer Kopyala-Yapıştır dışında, başka komutlar da pasif ise ,

Bir de şöyle deneyin ;

1) Dosya--Hesap--Güncelleme Seçenekleri'nden güncelleme yapın,

2) Excel'de 365 üyeliğiniz ile oturum açın (kullanıcı adınız farklı olabilir)

Kolay gelsin.