hücre dolu ise alta yazma

Durum
Üzgünüz bu konu cevaplar için kapatılmıştır...
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
 
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.
 

Ekli dosyalar

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.
 
Durum
Üzgünüz bu konu cevaplar için kapatılmıştır...
Benzer Konular Popüler İçerikler Daha Fazlası
Geri
Üst