hücre dolu ise alta yazma

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

caspizumla

Katılım
28 Tem 2022
Mesajlar
15
Excel Versiyonu
Excel 2016
Excel Sürümü
64 Bit
Excel Dili
Türkçe

Ekli dosyalar

Tarihe göre sırala Oylamaya göre sırala
Ömer BARAN' Alıntı:
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
Genişletmek için tıklayın ...

hocam sayfa1 veri aktarmıyor
 
Oyla 0 Olumsuz oyla
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
 
Oyla 0 Olumsuz oyla
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

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