Sitemize Hoşgeldiniz

Türkiye'nin en geniş özeliklere sahip forumu olan ExcelDestek.Com üzerinde soru sorabilmek, daha önceki sorulan sorulara, açılan konulara cevap yazabilmek, puan kazanabilmek, kazandığınız puanlar ile dosya indirebilmek ve çok daha fazla özellikten yararlanabilmek için sitemize üye olunuz.
Hemen Üye Ol ya da Giriş Yap

Sorun Cevaplayalım

Excel'e dair sorularınızı sorun, cevaplayalım.

Çözümlenmiş Sorular

Kullanıcılarımızın sorularını ve sunduğumuz çözümleri inceleyin.

Destek Ekibimiz Sizlerle

Ücretli destek ve özel hizmet talep edebilirsiniz.

  • Web sitemizi "REKLAMSIZ" olarak ziyaret etmek ister misiniz?
    Gerek sitemize destek, gerekse de reklam görmeden sitemizde gezinmek isterseniz, HESAP YÜKSELTME sayfasından SADECE 15-TL'ye 1 yıl boyunca ÜCRETLİ ÜYELİK almanız yeterli olacaktır.
    Detaylı bilgilendirme için lütfen buraya tıklayınız!

    REKLAMSIZ FORUM KULLANMAYI TERCİH EDECEK ÜYELERİMİZE, https://www.exceldosyalari.com İSİMLİ SİTEMİZDEN 3 AYLIK ÜYELİK PAKETİ HEDİYE EDİLECEKTİR.

VBA  Başka sayfadan veri kopyalama

muyat

VIP
VIP
Kullanıcı
Katılım
18 Mar 2020
Mesajlar
16
Excel Versiyonu, Dili
excel 2016 tr

Reputation:

Tekrar merhaba.
Şöyle bir sorum olcak
.Ekteki dosyada sayfa 1 de "O5" ve "p5"den başlayarak aşagı dogru 4 adet insan isim ve soyisimleri var.
Ben bunları sayfa'2de yukardan B2 hücresinden başlayıp içinde birleştirip isim ve soyisim arasında bir adet boşluk olcak şekilde ve c2den başlayıp tc numaraları yazacak şekilde yukardan aşagıya dogru sadece makroyu çalıştırınca kopyalamak istiyorum
Yalnız benim istedigim şey şu:
Sayfa 1 de bazı zamanlar "O5" ve "p5"den aşagıya dogru bazen 4, bazen 1,bazen 2, bazen 10 "tane isim oluyor.Yani kaç tane isim olacagı belirsiz.O nedenle makroyu çalıştırınca işlemin kaç kez tekrar etmesi gerektiğini hesaplattıramadım.
Bu senaryoya uyacak şekilde ilgili kodları yazar mısınız.
 

Ekli dosyalar

muyat

VIP
VIP
Kullanıcı
Katılım
18 Mar 2020
Mesajlar
16
Excel Versiyonu, Dili
excel 2016 tr

Reputation:

Hocam şunu soracaktım;
s1son = s1.Cells(Rows.Count, "N").End(3).Row 'kodun anlamı nedir ve rakam olarak neden 5 seçtik?
 
Moderatörün son düzenlenenleri:

muyat

VIP
VIP
Kullanıcı
Katılım
18 Mar 2020
Mesajlar
16
Excel Versiyonu, Dili
excel 2016 tr

Reputation:

Aynı şekilde s2.Columns("B:C").AutoFit anlamı nedir?
 
Moderatörün son düzenlenenleri:

AhmetRasim

Forum Yönetimi
Yönetici
Site Yöneticisi
SMS Onaylı
Katılım
15 Eki 2018
Mesajlar
311
Excel Versiyonu, Dili
Excel 2019 TR

Reputation:

Merhabalar Sn. muyat;
s1son = s1.Cells(Rows.Count, "N").End(3).Row Satırını parça parça açıklamak gerekirse;

s1son : Değişken ismi
s1 : Değişken ismi
* Değişken isimlerini istediğiniz gibi değiştirebilirsiniz.

s1 değişkenine Çalışma Kitabının Sayfa1 isimli sayfası tanımlanmış.
s1 = Sheets("Sayfa1") Bu şekilde Sheets("Sayfa1") yazmak yerine, sadece s1 yazılır.

s1son = s1.Cells(Rows.Count, "N").End(3).Row satırının anlamı,
Sayfa1 (s1) N Sütunundaki Son Dolu Hücrenin Satır Numarası alır ve s1son değişkenine atama yapar.
Örnek dosyanızda Sayfa1 N sütunu son dolu hücrenin satır numarası 8 , kod çalıştığında s1son = 8 olur.

s1son değişkeni For Döngüsünde bitiş değeri olarak kullanılmış, For Döngüsü sayaçlı bir döngüdür ve belirlenen sınırlar arasında işlem yapar.
Sizin çalışmanızda, kayıtlarınız 5. satırdan başladığı için Döngü 5. satırdan başlayıp s1son değişkenin aldığı değere kadar işlem yapar.


s2.Columns("B:C").AutoFit Satırının anlamı;
s2 : Değişken ismi. s1 de olduğu gibi Sayfa2, s2 değişkenine tanımlanmış.

s2.Columns("B:C").AutoFit Sayfa2 nin B ve C sütunlarının genişliğini otomatik olarak ayarla demektir.
Yani sütun içindeki değerlerin uzunluğu kadar Sütunu Daraltır ya da Genişletir.

Umarım açıklayıcı olmuştur.
Faydalı olması dileği ile..
Saygılarımla, iyi çalışmalar.
 

muyat

VIP
VIP
Kullanıcı
Katılım
18 Mar 2020
Mesajlar
16
Excel Versiyonu, Dili
excel 2016 tr

Reputation:

Açıklayıcı bilgi için çok teşekkür ederim.Anlatım mükemmel..Sorunum çözüldü.
 

AhmetRasim

Forum Yönetimi
Yönetici
Site Yöneticisi
SMS Onaylı
Katılım
15 Eki 2018
Mesajlar
311
Excel Versiyonu, Dili
Excel 2019 TR

Reputation:

Merhabalar Sn. muyat;
Rica ederim.
Saygılarımla, iyi çalışmalar.
 
Üst