Range sınıfının select yöntemi başarısız .

[cevoman]

aşağıda yazdığım kodu bir butona atadığımda "Range sınıfının select yöntemi başarısız" hatası vermektedir. Lütfen bana yardımcı olurmusunuz..Acaba kopyalanan alan aynı olduğu için bir çakışma mı söz konusu ? Bunu nasıl giderebilirim ?

If Range("G2") = "EXT 3" Then
Range("A2:E2").Select
Selection.Copy
Sheets("TERMİN TAKİP").Select
Sheets("TERMİN TAKİP").Range("P6").Select
Selection.End(xlDown).Select
ActiveCell.Offset(1, 0).Select
Selection.PasteSpecial Paste:=xlPasteValues
Application.CutCopyMode = False
End If

If Range("F2") = "BÜK 5" Then
Range("A2:E2").Select
Selection.Copy
Sheets("TERMİN TAKİP").Select
Sheets("TERMİN TAKİP").Range("DN6").Select
Selection.End(xlDown).Select
ActiveCell.Offset(1, 0).Select
Selection.PasteSpecial Paste:=xlPasteValues
Application.CutCopyMode = False

 

[zafer]

Merhaba


Lütfen konu başlığınızı konunuza uygun şekilde seçiniz.

Sheets("TERMİN TAKİP").Range("P6").Select
Selection.End(xlDown).Select
ActiveCell.Offset(1, 0).Select

bu kodlar'ı niçin kullandınız anlayamadım.
P6 ile P1048576 arasında dolu hücre yoksa hata verir.
sebebide ActiveCell.Offset(1, 0).Select ile seçilen son satırdan sonra bir aşağıdaki satırı seçmek istemenizden dolayı

kodlarda "Range sınıfının select yöntemi başarısız" hatası verecek bir kod göremedim.

 

[cevoman]

"Range sınıfının select yöntemi başarısız" hatası

Konu başlığı için kusura bakmayın bi dahakine konuya uygun başlık yazarım. İsterseniz excel dosyası üzerinden konuşalım. VERi GİRİŞ tabındaki İstediğim A ile E sütunları arasındaki ( örneğin A3:E3, A5:E5 gibi) değerleri kopyalayıp; F, G, H, I, J, hücrelerinden makina isimlerini seçtikten sonra "TERMİN TAKİP" tabında ilgili alana kopyalamak istiyorum. Örneğin ;29809 üretim nolu ürün "BÜK 5" ve " EXT 3" te işlem görecektir. buna göre butona bastığımda ilgili satır diğer sayfada iligli yere otomatik kopyalansın.

 

[zafer]

Merhaba

BÜK5 ve EXT1 ürünleri seçtiğinizde.
Termin sayfasında nasıl bulupta verileri aktaracağız,
Eşleşecek hiç bir bilgi yok.

 

[cevoman]

Merhaba;

Her proses için belirtilen satır aralıklarını kodda bu şekilde düzenledim ama nasıl kullanırım bilmiyorum. Benim sadece "VERİ GİRİŞ" tabına yazdığım bilgileri bir buton yardımıyla aşağıda belirttiğim aralıklara bıulduğu ilk boş satıra kopyalamasına ihtiyacım var. Aslında problem yeri belli olan satırı yerine kopyalamak ikinci problem ise bunun tek bir prosese değil birden fazla prosesede yapıştırılmak istenmesi.


EXT 1 = Range("B6:G6, B1000:G1000")
'EXT 2 = Range("I6:M6, I1000:M1000")
'EXT 3 = Range("P6:T6, P1000:T1000")
'EXT 4 = Range("W6:AA6, W1000:AA1000")
'EXT 5 = Range("AD6:AH6, AD1000:AH1000")
'EXT 6 = Range("AL6:AP6, AL1000:AP1000")
'EXT 7 = Range("AT6:AX6, AT1000:AX1000")
'EXT 8 = Range("BA6:BE6, BA1000:BE1000")
'EXT 9 = Range("BI6:BM6, BI1000:BM1000")
'EXT 10 = Range("BQ6:BU6, BQ1000:BU1000")
'EXT 11 = Range("BZ6:CD6, BZ1000:CD1000")
'BÜK 1 = Range("CH6:CL6, CH1000:CL1000")
'BÜK 2 = Range("CP6:CT6, CP1000:CT1000")
'BÜK 3 = Range("CX6B6, CX1000B1000")
'BÜK 5 = Range("DN6R6, DN1000R1000")
'BÜK 7 = Range("ED6:EH6, ED1000:EH1000")
'BÜK 8 = Range("EK6:EO6, EK1000:EO1000"

 

[cevoman]

Range sınıfının select yöntemi başarısız

yardım edebilecek biri var mı yada fikir verebilecek ? tek derdim optionlara göre satırları diğer sayfada uygun aralıklara dağıtmak.