Soru Sütun Hücresinin Dolu Olmasına Göre Veri Aktarma

[leonadies]

Üstadlar Merhaba;

"Giriş" sekmesinde U:U sütununda Sadece Dolu olan hücreleri dikkate alarak (hücrede ne yazdığı önemli olmaksızın dolu olması yeterli) yine belirtilen hücreleri
"Kayıt" Sekmesine resimde belirttiğim şekilde dizilim sağlayabilir miyiz? "Resimde Kayıt Sekmesinde verdiğim görüntü makronun vermesini istediğim sonuçtur"

Not: Bu işlemi yaparken kayıt sekmesinde en son boş satırı bulup öyle yazmalı. Çünkü Giriş Sekmesindeki bilgiler dinamik. Bu şekilde eski fişlere yönelik bilgileri saklamış olacağım.

 

[hmtstc]

sub calistir


set giris = sheets("Giriş")

set kayıt = sheets("Kayıt")

for i = 2 to cells(rows.count,"U").end(3).row

if cells(i,21) <> empty then

son = kayıt.cells(rows.count,1).end(3).row+1

kayıt.cells(son,1) = giris.cells(i,14)

kayıt.cells(son,2) = giris.cells(i,21)

kayıt.cells(son,3) = giris.cells(i,22)

kayıt.cells(son,3) = giris.cells(i,23)

end if

next i

end sub

 

[leonadies]

Eline sağlık hocam