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  İlk Boş Hücreye Kadar, Dolu Satırları Diğer Sayfaya Aktar

Durum
Üzgünüz bu konu cevaplar için kapatılmıştır...

sepulastura

Yeni Üye
Kullanıcı
Katılım
12 Haz 2019
Mesajlar
56
Excel Versiyonu, Dili
Excel 2016 EN

Reputation:

merhabalar

aşağıda bir kod düzeneğim mevcut. bu kodu ben A sütununda herhangi hücreye çift tıkladığımda bir shetten diğer sheete çift tıkladığım hücrenin satırdaki verilerini aktarıyor.

ben burda şunu yapmak istiyorum.

diyelimki a2 hücresine çift tıkladım a satırını aldı sheet ye kopyaladı
sonra kendisi otomatik işleme devam etsin. a3 hücresine ait satırı sanki çift tıklmamış gibi sheet2 ye aktarsın
sonra a4 hücresine ait satırı aktarsın
ta ki a sütununda boş hücreye denk gelene kadar bu işleme devam etsin.

bilgi ve yardımlarınızı rica ederim

If ActiveCell.Column = 1 Then
Son = S2.Cells(S2.Rows.Count, 1).End(3).Row + 1
S1.Range("A" & ActiveCell.Row & ":AL" & ActiveCell.Row).Copy S2.Range("A" & Son)
'ActiveCell.EntireRow.Delete
End If
 

AhmetRasim

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

Reputation:

Merhabalar Sn. sepulastura

Kodlarda değişiklik için;
Sorun yaşadığınız dosyanın örnek halini, kullandığınız UserForm'lar ve kodlar ile paylaşır mısınız?
*Yardımcı olmak ve yardım almak konusunda etkili olacaktır. ;)
 

sepulastura

Yeni Üye
Kullanıcı
Katılım
12 Haz 2019
Mesajlar
56
Excel Versiyonu, Dili
Excel 2016 EN

Reputation:

Değerli ziyaretçimiz lütfen, içeriği görüntüleyebilmek için Giriş Yap veya Kayıt Ol anlayışınız için teşekkürler.
açıklamalar dosyada mevcuttur
 

Ömer BARAN

Kurucu
Yönetici
Kurucu
SMS Onaylı
Katılım
11 Nis 2019
Mesajlar
1,065
Web Sitesi
ExcelDestek.Com
Excel Versiyonu, Dili
2013 (32) TR

Reputation:

Merhaba.
MODUL'deki SİL makrosuna ihtiyaç olmadığını düşünüyorum (silebilirsiniz) .
Sheet1'in kod bölümünde mevcut Worksheet_BeforeDoubleClick kod blokunu tamamen silip aşaıdakini yapıştırın.
-- Aktarılan satırdaki hücre içerikleri silinecek (hücreler yerinde duracak, sadece içerik silinecek) ise kırmızı satırı silin.
-- Aktarılan satır bütün olarak silinecek (hücreler silinerek tablo yukarı doğru kaydırılacak) ise mavi satırı silin.
Gizlenmiş içerik
Bu içeriği görebilmek için bu yazıya tepki vermeniz gerekir.
 
Durum
Üzgünüz bu konu cevaplar için kapatılmıştır...
Üst