• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

Satır Kopyalama

  • Konbuyu başlatan Konbuyu başlatan kargec
  • Başlangıç tarihi Başlangıç tarihi
K

kargec

Katılım
28 Şubat 2018
Mesajlar
60
Excel Vers. ve Dili
2010 Türkçe
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..
 
Buyurun.:cool:
Kod: 
Sub kopyalama59()
Range("L3:L26").Copy
Range("L30").PasteSpecial xlPasteValuesAndNumberFormats
Application.CutCopyMode = False
MsgBox "Kopyalama bitti"
End Sub
 
Orion1' Alıntı:
Buyurun.:cool:
Kod: 
Sub kopyalama59()
Range("L3:L26").Copy
Range("L30").PasteSpecial xlPasteValuesAndNumberFormats
Application.CutCopyMode = False
MsgBox "Kopyalama bitti"
End Sub
Genişletmek için tıkla ...

Çok Teşekkür ederim kardeşim. Allah ne muradın varsa versin.
Vermiş olduğun kod çok güzel çalıştı.
saygılar..
 
Oryon Hocam cevaplamış zaten benim kişide alternatif olsun.
 
Aynı formülü hücreleri renkleriyle birlikte kopyalanması mümkünmüdür ?
Saygılar..
 
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
 
kargec' Alıntı:
Aynı formülü hücreleri renkleriyle birlikte kopyalanması mümkünmüdür ?
Saygılar..
Genişletmek için tıkla ...

Buyurun.:cool:
Kod: 
Sub kopyalama59()
Range("L3:L26").Copy
Range("L30").PasteSpecial xlPasteValues
Range("L30").PasteSpecial xlPasteFormats
Application.CutCopyMode = False
MsgBox "Kopyalama bitti"
End Sub
 
Kavinsky' Alıntı:
Ü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
Genişletmek için tıkla ...
Bu başlık altında sorulan soruya cevap verilmiştir.
Yeni bir konu için yeni başlık açınız.:cool:
 
Orion1' Alıntı:
Buyurun.:cool:
Kod: 
Sub kopyalama59()
Range("L3:L26").Copy
Range("L30").PasteSpecial xlPasteValues
Range("L30").PasteSpecial xlPasteFormats
Application.CutCopyMode = False
MsgBox "Kopyalama bitti"
End Sub
Genişletmek için tıkla ...

Allah razı olsun kardeşim. Eline Emeğine sağlık. Çok güzel oldu.
Saygılar..
 
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..
 
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
 
Aşağıdaki gibi yapınız.
Kod: 
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
 
Orion1' Alıntı:
Aşağıdaki gibi yapınız.
Kod: 
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
Genişletmek için tıkla ...

Kardeşim ne diyeyim Allah ne muradın varsa versin...
Saygılar..
 
Cevap yazmak için giriş yap yada kayıt ol.
Geri
Üst