Çözüldü hücre dolu ise alta yazma

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

caspizumla

Normal Üye
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.
 

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
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 Daha Fazlası

Üst