kopyala-yapıştır yapmak

[Muhammet Okumuş]

f ve g sütununda sayılar var.bunları tek butonla a ve b sütununa aynı anda kopyalamak istiyorum.örneğin f1deki sayı a1, g1deki sayı b1 hücresine gelecek.

 

[Muzaffer Ali]

aşağıdaki kodları deneyin

Columns("F:G").Copy
Range("A1").Select
ActiveSheet.Paste

 

[Muhammet Okumuş]

benim istediğim butona bastığımda önce f1 ve g1 dekini a1 ve a2ye düğmeye birdaha bastığımda f2 ve g2dekini a2 ve b2 yapıştırmasını istiyorum

 

[leumruk]

Merhaba,
Aşağıdaki gibi deneyin.

Sub Aktar()
Sat = [a65536].End(3).Row + 1
If Sat - 1 <= [f65536].End(3).Row Then
If [a1] = "" Then Sat = 1
Cells(Sat, "a") = Cells(Sat, "f")
Cells(Sat, "b") = Cells(Sat, "g")
End If
End Sub

 

[Muhammet Okumuş]

sn leumruk sadece bir işlem yapıyor.ben sınır olmasını istemiyorum.

 

[leumruk]

Sınır olmasını istemiyorum demişsiniz; bunu biraz daha açar mısınız?
Eklediğim kod, f sütununda ne kadar veri varsa o kadar işlem yapıyor. Aktarma tamamlandığında başa dönüp verilerin yeniden aktarılmasını mı istiyorsunuz?

 

[Muhammet Okumuş]

sadece a1 ve b1 hücresine yapıştırıyor.sonra işlem yapmıyor

 

[leumruk]

Dosyayı ve kodları güncelledim; yeniden indirebilirsiniz.

 

[Muhammet Okumuş]

sn leumruk çok teşekkür ederim bu kez olmuş

 

[leumruk]

sn leumruk çok teşekkür ederim bu kez olmuş

Rica ederim.

 

[Muhammet Okumuş]

sn leumruk dosya açıkken veri eklediğimde yada yarısın seçip kaybedip kapatrtığımda başka verileri yapıştırıyor

 

[leumruk]

Evet, onun uyarısını kodun altına eklemiştim. Sizden ses çıkmayınca kodu öyle bıraktım.
Kodu yeniden düzenlemek için isteğinizi tam olarak şekillendirmemiz lazım. Öncelikle aşağıdaki sorulara cevap almalıyım:
1. Örneğin g ve f sütununda 5 sıra veri var. Bu verileri a ve b sütununa tek tek aktarmak istiyorsunuz. Peki 5 sıra veriyi aktardıktan sonra kodun ne yapmasını istiyorsunuz?
2. Sonradan veri eklediniz diyelim. Örneğin g ve f sütunu 8 satıra çıksın, a ve b sütununa bu son 3 veriyi mi eklemek istiyorsunuz?
Ek bilgi varsa onları da eklerseniz işim daha da kolaylaşır.

 

[Muhammet Okumuş]

f ve g sütununda kaç veri varsa o kadar işlem yapsın.
5 bilgiden sonra 3 bilgi eklersem onu sona ilave etsin.
yani a1=f1 b1=g1 a3000f300 b300=g300

 

[leumruk]

4 nolu mesajdaki dosyayı ve kodları güncelledim. Yeniden deneyebilirsiniz.

 

[Muhammet Okumuş]

sn leumruk teşekkür ederim.sorun çözülmüş

 

[leumruk]

sn leumruk teşekkür ederim.sorun çözülmüş

Rica ederim. İyi çalışmalar.