boşsa atla dolu ise kopyala kodu

muhsar' Alıntı:

merhaba,ekte sunduğum tabloda dolu isimli resimde görüldüğü gibi veri varsa ilk sütunu işaretleyip dolu satırları seçip kopyalıyorum fakat boş isimli resimde olduğu gibi veri yoksa tüm sayfayı kopyalıyor.sadece veri olan satırları seç nasıl yapabilirim

kullandığım kodmakrokaydet ile oluşturuldu)

Sub randevuaktar()
'
' randevuaktar Makro
'

'
Application.ScreenUpdating = False
Range("A2:J2").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
Workbooks.Open Filename:="F:\EVDE SAĞLIK\RANDEVU TAKİP.xlsx"
ActiveWindow.ScrollRow = 1
ActiveWindow.SmallScroll Down:=-15
Range("A" & Cells(Rows.Count, 2).End(xlUp).Row + 1).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
ActiveWorkbook.Save
ActiveWindow.Close
Range("A5").Select
MsgBox "Aktarım Tamamlandı", vbInformation + vbMsgBoxRtlReading, "ExcelDestek.com"
Application.ScreenUpdating = True
End Sub

Genişletmek için tıklayın ...

muhsar' Alıntı:

Yönetimden rica etsem resimleri silebilirmisiniz, bilgileri değiştirmeyi ihmal etmişim

Genişletmek için tıklayın ...

Ömer BARAN' Alıntı:

Merhaba Sayın @muhsar .
Bence sorunuzda bir miktar belirsizlik var.
A sütunundaki sıra numaraları formül ile mi elde ediliyor yoksa elle veya makro kod ile mi yazılıyor bu net değil,
ayrıca, YAPILACAK İŞLEM başlıklı sütunda, arada boş hücre kalarak veri girişi yapılıp yapılmadığı da net değil.
Yani belgeyi kullanış tarzınız netleştirilmelidir.

YAPILACAK İŞLEM başlıklı sütunda arada boşluk olmayacak şekilde veri girişi yapılıyorsa aşağıdaki şekilde istenilen gerçekleşecektir.

VBA:

İndirmek için giriş yapmanız gerekmektedir.
(17 satır)

Genişletmek için tıklayın ...

Ömer BARAN' Alıntı:

Verdiğim kod aktarılacak veri olup olmadığına dair kontrolü,
YAPILACAK İŞLEM başlıklı, veri doğrulama uygulanmış sütundaki son dolu hücrenin satır numarasına göre yapıyor durumda.

İsterseniz, son cevabınızdaki "SATIRDA BİLGİ VARSA" kısmını biraz netleştirin.
Ben şöyle düşündüm, eğer A sütununa elle yazarak numara veriyorsanız (numara verilmiş satır aktarılacak, diğerleri aktarılmayacak)
ve A sütununda arada boş hücre olmaksızın bu numaralar veriliyorsa son veri satırını A sütunu üzerinden kontrol ettirmek mümkün demektir.

-- Ya; verdiğim koddaki sonsat = Cells(Rows.Count, "I").End(3).Row şeklindeki satırı
sonsat = WorksheetFunction.Max(Sheets("RANDEVU_DEFTERİ").[A:A])+1 olarak değiştirerek deneyin,
-- ya da hatalı dediğiniz haliyle, şu satırların aktarılması gerekiyor/şu nedenle şu satırların aktarılmaması gerekiyor gibi
açıklama ekleyerek belgenizi farklı kaydedip foruma ekleyin bir kontrol yapayım.

Genişletmek için tıklayın ...