Satır Kopyalama

[kargec]

Arkadaşlar Selamlar..
Şöyle bir sorunum var, izah etmeye çalışayım.
L3 ten L26 ya kadar olan satırlarında formüller bulunmakta.
Ancak Makro ile L3:L26 satır aralığını L30:L53 satır aralığına kopyaladığımda formüllerin değil, değerlerin kopyalanmasını beceremedim.
istediğim L3:L26 satırlar aralığını L30:L53 satırlarına sanki baskı ön izleme yapmış gibi yapıştırması.
Saygılar..

 

[Orion1]

Buyurun.

Sub kopyalama59()
Range("L3:L26").Copy
Range("L30").PasteSpecial xlPasteValuesAndNumberFormats
Application.CutCopyMode = False
MsgBox "Kopyalama bitti"
End Sub

 

[kargec]

Buyurun.

Sub kopyalama59()
Range("L3:L26").Copy
Range("L30").PasteSpecial xlPasteValuesAndNumberFormats
Application.CutCopyMode = False
MsgBox "Kopyalama bitti"
End Sub

Çok Teşekkür ederim kardeşim. Allah ne muradın varsa versin.
Vermiş olduğun kod çok güzel çalıştı.
saygılar..

 

[yanginci34]

Denermisiniz
http://s7.dosya.tc/server4/1128kd/deger_olarak_kopyala.rar.html

 

[Orion1]

Çok Teşekkür ederim kardeşim. Allah ne muradın varsa versin.
Vermiş olduğun kod çok güzel çalıştı.
saygılar..

Rica ederim.
İyi geceler.
Saygılar benden.

 

[yanginci34]

Oryon Hocam cevaplamış zaten benim kişide alternatif olsun.

 

[kargec]

Aynı formülü hücreleri renkleriyle birlikte kopyalanması mümkünmüdür ?
Saygılar..

 

[Kavinsky]

Verileri aktardıktan sonra boş olan verilerin yanındaki hücreleri kaldırma

Üstatlar merhaba.
Bende üretilen malları paketlenip faturalandırıldığı bir sistem oluşturmaya çalıştım lakin takıldığım bir nokta var orada işin içinden çıkamadım. Ekteki dosyada YÜKLEME sayfasına faturalandırılıp gönderilecek ürünü girip yükle butonuna basıyorum hem faturaya aktarıyor hem de PERSPEKTİF SAYFASINA L ve R sütunları arasına bilgileri kopyalıyor O sütununa kadar bilgileri yükleme sayfasından temin ediyor fatura numarasını ve şirket ismini de bilgilerden kopyalıyor. 3 adet ürünün çıkışını yapıyor yanlarına fatura no ve şirket yazıyor ama yükleme sayfasında 6 çeşit ürün için bölüm olduğu için oraları boş olsa dahi PERSPEKTİFE şirketi isimlerini ve fatura no aktarıyor. Benim istediğim perspektifte L den O ya kadar boş olan verilerin yanındaki şirket tarih ve fatura no bilgilerini silsin ya da buna alternatif bir vba yazma mümkünatı varsa yardımcı olur musunuz ? Çok teşekkür ederim.

http://dosya.co/1jwx7mi6ulj3/Kitap2.xlsm.html

 

[Orion1]

Aynı formülü hücreleri renkleriyle birlikte kopyalanması mümkünmüdür ?
Saygılar..

Buyurun.

Sub kopyalama59()
Range("L3:L26").Copy
Range("L30").PasteSpecial xlPasteValues
Range("L30").PasteSpecial xlPasteFormats
Application.CutCopyMode = False
MsgBox "Kopyalama bitti"
End Sub

 

[Orion1]

Üstatlar merhaba.
Bende üretilen malları paketlenip faturalandırıldığı bir sistem oluşturmaya çalıştım lakin takıldığım bir nokta var orada işin içinden çıkamadım. Ekteki dosyada YÜKLEME sayfasına faturalandırılıp gönderilecek ürünü girip yükle butonuna basıyorum hem faturaya aktarıyor hem de PERSPEKTİF SAYFASINA L ve R sütunları arasına bilgileri kopyalıyor O sütununa kadar bilgileri yükleme sayfasından temin ediyor fatura numarasını ve şirket ismini de bilgilerden kopyalıyor. 3 adet ürünün çıkışını yapıyor yanlarına fatura no ve şirket yazıyor ama yükleme sayfasında 6 çeşit ürün için bölüm olduğu için oraları boş olsa dahi PERSPEKTİFE şirketi isimlerini ve fatura no aktarıyor. Benim istediğim perspektifte L den O ya kadar boş olan verilerin yanındaki şirket tarih ve fatura no bilgilerini silsin ya da buna alternatif bir vba yazma mümkünatı varsa yardımcı olur musunuz ? Çok teşekkür ederim.

http://dosya.co/1jwx7mi6ulj3/Kitap2.xlsm.html

Bu başlık altında sorulan soruya cevap verilmiştir.
Yeni bir konu için yeni başlık açınız.

 

[kargec]

Buyurun.

Sub kopyalama59()
Range("L3:L26").Copy
Range("L30").PasteSpecial xlPasteValues
Range("L30").PasteSpecial xlPasteFormats
Application.CutCopyMode = False
MsgBox "Kopyalama bitti"
End Sub

Allah razı olsun kardeşim. Eline Emeğine sağlık. Çok güzel oldu.
Saygılar..

 

[Orion1]

Allah razı olsun kardeşim. Eline Emeğine sağlık. Çok güzel oldu.
Saygılar..

Rica ederim.
İyi çalışmalar.

 

[kargec]

Kardeşim Selamlar.
Programı bitirdim ancak son anda bir sorun çıktı.
Bana vermiş olduğun koda ufak bir değişiklik ekledim.

Private Sub KopyalaYapıştır()
Range("L3:L26:M3:M26").copy
Range("Q3:Q26:R3:R26").PasteSpecial xlPasteValues
Range("Q3:Q26:R3:R26").PasteSpecial xlPasteFormats
Application.CutCopyMode = False
MsgBox "Rapor Başarıyla Alındı"
End Sub

Sorun şöyle oluşuyor.
L3:L26:M3:M26 hücreleri salt okunur ve korumalı.
Q3:Q26:R3:R26 hücrelerine kopyalandığında Q3:Q26:R3:R26 hücrelerini salt okunur hale getiriyor. ilk kopyalamada sorun yok ikincide hücreleri salt okunur hale getiriyor.
İstediğim şu: L3:L26:M3:M26 hücrelerini Q3:Q26:R3:R26 hücrelerine kopyaladığında Q3:Q26:R3:R26 hücreleri salt okunur olmasın.

Kardeşim Kusuruma bakma senide yordum. Üzgünüm.
Saygılar..

 

[kargec]

formülü şöyle yaptım çalışmaya başladı.

Private Sub KopyalaYapıştır()
Range("L3:L26:M3:M26").copy
Range("Q3:Q26:R3:R26").PasteSpecial xlPasteValues
Application.CutCopyMode = False
MsgBox "Rapor Başarıyla Alındı"
End Sub

Yaptığımın doğruluğundan emin değilim

 

[Orion1]

Aşağıdaki gibi yapınız.

Private Sub KopyalaYapıştır()
activesheet.unprotect "şifreniz"
Range("L3:L26:M3:M26").copy
Range("Q3:Q26:R3:R26").PasteSpecial xlPasteValues
Range("Q3:Q26:R3:R26").PasteSpecial xlPasteFormats
Application.CutCopyMode = False
activesheet.protect "şifreniz"
MsgBox "Rapor Başarıyla Alındı"
End Sub

 

[kargec]

Aşağıdaki gibi yapınız.

Private Sub KopyalaYapıştır()
activesheet.unprotect "şifreniz"
Range("L3:L26:M3:M26").copy
Range("Q3:Q26:R3:R26").PasteSpecial xlPasteValues
Range("Q3:Q26:R3:R26").PasteSpecial xlPasteFormats
Application.CutCopyMode = False
activesheet.protect "şifreniz"
MsgBox "Rapor Başarıyla Alındı"
End Sub

Kardeşim ne diyeyim Allah ne muradın varsa versin...
Saygılar..

 

[Orion1]

Kardeşim ne diyeyim Allah ne muradın varsa versin...
Saygılar..

Rica ederim.
İyi çalışmalar.