Belirli değişkene göre son satırı bulup veri aktarma

[vurkan]

Arkadaşlar merhaba. Kod yazmayı bilmediğimden yine yardımınıza ihtiyacım var.

Ekteki dosyada VERİ isimli sayfadan bazı veriler BİRLER isimli sayfaya aktarılacak ama tüm veriler değil, sadece 1A 1B .... gibi isimleri olan 1. SINIFLAR aktarılacak.

Kısaca:
VERİ sayfasından sadece 1. SINIFLAR aktarılacak
Veri olan satırların H sütununda 09:00 - 14:45 tekrarlayacak
dolu olan satırların hücre kenarları çizilecek
Oluşturulan BİRLER isimli sayfa ilaveten aynı klasör içine A1 hücresindeki adla yeni bir kitap olarak kaydedilecek.

Makro kaydetme yöntemiyle yapmaya çalıştım ama olmadı. Yardım ederseniz sevinirim.

https://dosya.co/l69qypg9qngc/OGRENCI_PROGRAMI_v0.xls.html

 

[tamer42]

Arkadaşlar merhaba. Kod yazmayı bilmediğimden yine yardımınıza ihtiyacım var.

Ekteki dosyada VERİ isimli sayfadan bazı veriler BİRLER isimli sayfaya aktarılacak ama tüm veriler değil, sadece 1A 1B .... gibi isimleri olan 1. SINIFLAR aktarılacak.

Kısaca:
VERİ sayfasından sadece 1. SINIFLAR aktarılacak
Veri olan satırların H sütununda 09:00 - 14:45 tekrarlayacak
dolu olan satırların hücre kenarları çizilecek
Oluşturulan BİRLER isimli sayfa ilaveten aynı klasör içine A1 hücresindeki adla yeni bir kitap olarak kaydedilecek.

Makro kaydetme yöntemiyle yapmaya çalıştım ama olmadı. Yardım ederseniz sevinirim.

https://dosya.co/l69qypg9qngc/OGRENCI_PROGRAMI_v0.xls.html

Ekli dosyayı inceler misiniz,

 

[vurkan]

İlginize teşekkür ediyorum. Ama dosyayı indiremiyorum. Acaba harici link paylaşabilir misiniz. Teşekkür ederim.

 

[tamer42]

İlginize teşekkür ediyorum. Ama dosyayı indiremiyorum. Acaba harici link paylaşabilir misiniz. Teşekkür ederim.

https://www.dosyaupload.com/fa66

 

[vurkan]

Sayın tamer42 çok teşekkür ediyorum. Gayet güzel çalıştı.

Eğer olabilecekse B C H sütunları dikey yatay ortalatılabilir mi acaba?

İkinci olarak BİRLER isimli sayfaya bilgiler aktarıldıktan sonra, aynı klasör içine, adını BİRLER sayfasındaki A1 hücresinden alan yeni bir dosya oluşturulabilir mi? Bu yeni dosya sadece BİRLER sayfasından oluşacak. Teşekkürler.

 

[vurkan]

Sayın arkadaşlar 5. mesajdaki ortalama işini hallettim.
Sadece BİRLER isimli sayfayı, aynı klasör içine, adını BİRLER sayfasındaki A1 hücresinden alan yeni bir dosya oluşturma kaldı. Bunun için şu kodları oluşturdum.

Sub E_MAİL_SAYFASI()
Sheets("BİRLER").Select
Sheets("BİRLER").Copy
Windows("OGRENCI PROGRAMI v0(1).xls").Activate
End Sub

Bu kodlar kaydedilmemiş bir excel dosyası oluşturuyor. Buna nasıl bir ilaveyle aynı klasöre kayıt yaptırabilirim? Tabii kayıt yaptığı dosyanın adı BİRLER sayfasındaki A1 hüresinin içeriği olmalı. Teşekkürler.

 

[vurkan]

Sayın arkadaşlar aşağıdaki kodları makro kadederek oluşturdum. Çalışıyor. Ancak :

Kayıt yolunun düzenlenmesi gerek.

"E:\HÜSEYİN\EKİTAPLAR\EXCEL\OSMANGAZİ DİŞ\ yerine çalışılan (aktif) klasör nasıl denir?

Dosya adının düzenlenmesi gerek;

PENDİK OSMANGAZİ İLKOKULU 1.SINIF yerine =BİRLER!A1 (BİRLER sayfasının A1 hücresinde yazan isim) nasıl denir? Saygılar.

Sub EMAİL()

Sheets("BİRLER").Select
Sheets("BİRLER").Copy
ActiveWorkbook.SaveAs Filename:= _
"E:\HÜSEYİN\EKİTAPLAR\EXCEL\OSMANGAZİ DİŞ\PENDİK OSMANGAZİ İLKOKULU 1.SINIF.xlsx" _
, FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False
ActiveWindow.Close

End Sub