Hücre Dolu İse Alta Yazma

[caspizumla]

Excel Versiyonu

Excel 2016

Excel Sürümü

64 Bit

Excel Dili

Türkçe

merhaba arkadaşlar,

sorum şöyle sayfa2 deki tablonun F3:F10 satırlarına yazacağım verilerin sayfa1 deki D sütununa işlenmesini istiyorum ama her seferinde alta doğru yazmasını istiyorum.

 

[Ömer BARAN]

Belgenizdeki boş bir Module aşağıdaki kodu yapıştırarak çalıştırın.

Bu kodu görmek için giriş yapmanız gerekmektedir (14 satır). Giriş Yap

 

[caspizumla]

Sub AKTAR() Set bir = Sheets("1"): Set iki = Sheets("2") If WorksheetFunction.CountA(iki.[F3:F10]) > 0 Then For sat = 3 To 10 If Not iki.Cells(sat, "F") = Empty Then bsat = bir.Cells(Rows.Count, "D").End(3).Row + 1 If bsat = 6 Then bsat = 7 bir.Cells(bsat, "D") = iki.Cells(sat, "F"): iki.Cells(sat, "F") = "" End If Next MsgBox "Veriler aktarıldı..", vbInformation, "..:: Ömer BARAN ::.." Else: MsgBox "Aktarılacak veri yok.", vbCritical, "..:: Ömer BARAN ::.." End If End Sub

hocam sayfa1 veri aktarmıyor

 

[caspizumla]

hocam aktarıyormuş ama bunu direk olarak yapamaz mı ve aktardıktan sonra sayfa ikide yazdıklarımı silmesin sayfa2 deki boş kalan satırları silsin

 

[caspizumla]

ayrıca hocam zahmet olmazsa sayfa2 deki g3:g10 kısmınıda ekleyebilir misiniz?

 

[__TR__]

Buyrun, Aktar butonuna basınca yazılan rakamlar ilgili kısma gidiyor ve sayfa 2 deki boş satırlar gizleniyor, ayrıca lazım olur diye göster adında bir buton ekledim ona tıklayınca da gizlenen satırlar görünür hale geliyor.

 

[caspizumla]

teşekkür ederim hocam

 

[__TR__]

Rica ederim, konu çözüldü ise çözüldü şeklinde belirtiniz arkadaşlar konuyu kilitlesinler.

 

[caspizumla]

Rica ederim, konu çözüldü ise çözüldü şeklinde belirtiniz arkadaşlar konuyu kilitlesinler.

Aradım ama nasıl yapacağımı bulamadım

 

[cakarem]

Konuyu soran kişi tarafından çözüldü olarak yazılması yeterlidir. Yetkililer tarafından görüldüğünde konu başlığı çözüldü olarak değiştirilip kilitlenir.