Çözüldü İ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ı

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
 



Forumumuzu reklamsız kullanmak, Hazır Excel Dosyaları indirmek ve web sitemize destek olmak için Hesap Yükseltme yapabilirsiniz. Detayları buradan inceleyebilir, hemen hesabınızı yükseltebilirsiniz.

Çözüm
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...

AhmetRasim

Forum Yönetimi
Yönetici
Site Yöneticisi

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. ;)
 



Forumumuzu reklamsız kullanmak, Hazır Excel Dosyaları indirmek ve web sitemize destek olmak için Hesap Yükseltme yapabilirsiniz. Detayları buradan inceleyebilir, hemen hesabınızı yükseltebilirsiniz.

sepulastura

Yeni Üye
Kullanıcı

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
 



Forumumuzu reklamsız kullanmak, Hazır Excel Dosyaları indirmek ve web sitemize destek olmak için Hesap Yükseltme yapabilirsiniz. Detayları buradan inceleyebilir, hemen hesabınızı yükseltebilirsiniz.

Ömer BARAN

Kurucu
Yönetici
Kurucu

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.
[HIDETHANKS]
Rich (BB code):
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.
[/HIDETHANKS]
 



Forumumuzu reklamsız kullanmak, Hazır Excel Dosyaları indirmek ve web sitemize destek olmak için Hesap Yükseltme yapabilirsiniz. Detayları buradan inceleyebilir, hemen hesabınızı yükseltebilirsiniz.

Çözüm

sepulastura

Yeni Üye
Kullanıcı

Reputation:

çok teşekkürler üstadım emeğine bilgine sağlık
 



Forumumuzu reklamsız kullanmak, Hazır Excel Dosyaları indirmek ve web sitemize destek olmak için Hesap Yükseltme yapabilirsiniz. Detayları buradan inceleyebilir, hemen hesabınızı yükseltebilirsiniz.

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