[Çözüldü]  Kopyala Yapıştır Basit bir soru

VBA Makrolar ile ilgili sormak istedikleriniz, yapmak istedikleriniz hakkında yardım alabileceğiniz bölümdür.

Kopyala Yapıştır Basit bir soru

İleti#1)  chisquare » 18 Tem 2018 23:15

Arkadaslar merhaba,

Worksheets("w1").Cells(i, 22).Copy
Worksheets("w1").Paste Destination:=Worksheets("w2").Cells(erow + 1, 11)

For döngüsü içinde bunun gibi kodları döndürüyorum w1'den w2 ye kopyala yapıştır yapıyorum fakat sadece w2 ye değerleri kopyalamak istiyorum. Bu kodu nasıl güncellemem gerekir? Yardımcı olursanız sevinirim.
Kullanıcı avatarı
chisquare
Yeni Başlamış
 
Kayıt: 17 Tem 2018 23:29
Meslek: Ögrenci
Yaş: 23
İleti: 12
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: üsküdar

Cevap: Kopyala Yapıştır Basit bir soru

İleti#2)  Ali ÖZ » 19 Tem 2018 01:10

Kod: Tümünü seç
Sheets("w1").Cells(i, 22).Copy
Sheets("w2").Cells(erow + 1, 11).PasteSpecial Paste:=xlPasteValues
Allah bize yeter, O ne güzel vekildir.
حَسْبُنَا اللهُ وَنِعْمَ الْوَكِيلُ
Kullanıcı avatarı
Ali ÖZ
Forum Moderatörü
 
Adı Soyadı:Ali ÖZ
Kayıt: 17 Oca 2013 12:16
Konum: SAKARYA
Meslek: Yazılım
Yaş: 37
İleti: 9440
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Adapazarı/SAKARYA

Cevap: Cevap: Kopyala Yapıştır Basit bir soru

İleti#3)  chisquare » 19 Tem 2018 10:05

Ali ÖZ yazdı:
Kod: Tümünü seç
Sheets("w1").Cells(i, 22).Copy
Sheets("w2").Cells(erow + 1, 11).PasteSpecial Paste:=xlPasteValues


Abi selamlar, Cevabınız için öncelikle çok teşekkür ederim. Fakat
For i = 6 To lastrow
Sheets("one").Cells(i, 25).Copy
erow = Worksheets("two").Cells(Rows.Count, 1).End(xlUp).Row
Sheets("two").Cells(erow + 1, 11).PasteSpecial Paste:=xlPasteValues

Bu kodu döndürdügümde sadece en son degeri kopyala-yapıstır yapıyor tüm sutunu cekemiyorum. Bunu nasıl yapabilirim ?
Kullanıcı avatarı
chisquare
Yeni Başlamış
 
Kayıt: 17 Tem 2018 23:29
Meslek: Ögrenci
Yaş: 23
İleti: 12
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: üsküdar

Cevap: Kopyala Yapıştır Basit bir soru

İleti#4)  Ali ÖZ » 19 Tem 2018 22:21

Kopyala yapıştır yerine değer atamanız daha kullanışlı olacaktır.
Kod: Tümünü seç
say = 2
for i = 2 to  sheets("a").range("a65536").end(3).row
   sheets("b").range("a" & say).value = sheets("a").range("a" & i).value
   say = say+1
next


gibi.
Allah bize yeter, O ne güzel vekildir.
حَسْبُنَا اللهُ وَنِعْمَ الْوَكِيلُ
Kullanıcı avatarı
Ali ÖZ
Forum Moderatörü
 
Adı Soyadı:Ali ÖZ
Kayıt: 17 Oca 2013 12:16
Konum: SAKARYA
Meslek: Yazılım
Yaş: 37
İleti: 9440
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Adapazarı/SAKARYA

REKLAM
Excel Logo XML Oluşturucu
Logo Object Designer ile Uyarlama

Cevap: Kopyala Yapıştır Basit bir soru

İleti#5)  chisquare » 22 Tem 2018 15:43

Allah razı olsun Ali abi.
Kullanıcı avatarı
chisquare
Yeni Başlamış
 
Kayıt: 17 Tem 2018 23:29
Meslek: Ögrenci
Yaş: 23
İleti: 12
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: üsküdar

Cevap: Kopyala Yapıştır Basit bir soru

İleti#6)  Ali ÖZ » 23 Tem 2018 12:37

Amin,cümlemizden.
Allah bize yeter, O ne güzel vekildir.
حَسْبُنَا اللهُ وَنِعْمَ الْوَكِيلُ
Kullanıcı avatarı
Ali ÖZ
Forum Moderatörü
 
Adı Soyadı:Ali ÖZ
Kayıt: 17 Oca 2013 12:16
Konum: SAKARYA
Meslek: Yazılım
Yaş: 37
İleti: 9440
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Adapazarı/SAKARYA

REKLAM
ETA - Excel Konsolide Raporlama
ETA Excel Personel Entegre Raporu

Forum Genel Makro Soruları

Online Kullanıcılar

Bu forumu görüntüleyenler: Google Adsense [Bot], keciorenli ve 6 misafir

cron
Bumerang - Yazarkafe