Soru Diğer Sayfaya veri aktarma

muratbalci59

New member
Üye
#1
Sayın hocalarım,,,

Excelde 1. sayfada iken doldurduğum 5x5 lik bir formu her seferinde yeniden dolduruyorum. Ama form dolduktan sonra sil yaz yapıyorum.

Benim sizden talebim 1. sayfaya tablonun altına bir buton ekleyerek 2. sayfaya veri girişi yapmak istiyorum.
ama bu 5x5 lik veri girişleri her kayıtta üst üste gelip çakışmasın satır bazlı 5er 5er atlayarak alt alta her kaydı tutsun. böylece geri dönük neleri kaydettiğimi görebileyim.

Bu txt olarak veri dosyasına da yapılabilirse onuda öğrenmek isterim.

Kolay gelsin...
 

alperduryaz

New member
Üye
#3
Merhaba,
Sayfa isimlerinin sayfa1 ve sayfa2, sayfa1 deki 5x5 lik alanın da A1:E5 arası olduğunu varsayarsak aşağıdaki kod işinizi görecektir.
Kod:
    Sheets("Sayfa1").Range("A1:E5").Cut
    Sheets("Sayfa2").Select
    Selection.Insert Shift:=xlDown
    Sheets("Sayfa1").Select
 

AhmetRasim

Destek Ekibi
Destek Ekibi
#5
Merhabalar;
Çalışma dosyanızda ALT + F11 tuşları ile VBA penceresini açınız.
Insert menüsünden Module ekleyiniz ve şu kodları modül içerisine yapıştırınız. Daha sonra Sayfa1 de bulunan düğmelere ilgili makroyu ekleyiniz.
Kod:
Sub Sayfa2ye_Aktar()
Application.ScreenUpdating = False
son = Sayfa2.Cells(Rows.Count, 2).End(3).Row + 1
If WorksheetFunction.CountIf(Sayfa2.Range("A1:A" & Sayfa2.Range("A65536").End(3).Row), Sayfa1.Range("A1")) >= 1 Then
MsgBox "Aynı Tarih daha önce kayıt edilmiş!", vbExclamation, "Uyarı"
Exit Sub
Else
Sayfa1.Range("A1:F5").Copy
Sayfa2.Cells(son, 2).Offset(1, -1).PasteSpecial
MsgBox "Kopyalama işlemi tamamlandı!", vbInformation, "Bilgi"
Application.CutCopyMode = False
End If
Application.ScreenUpdating = True
End Sub

Sub Sayfa1_Temizle()
Sayfa1.Range("A1:F5").ClearContents
End Sub
 

muratbalci59

New member
Üye
#8
Hocam Tekrar Merhabalar...

Verdiğiniz formülü çalıştırdım.

Ama kendi yapmak istediğim çalışmaya uyarlayamadım. Sizden talebimi EK'te bulunan ACİL Durum isimli Excel Dosyasında sekmeler arasındaki geçişi ve yapılmasını istediğim transfer şeklini anlattım. İlk sekmede bulunan örnek içerikli 4. adet satırdan oluşan bir veri bloğunu diğer sayfaya taşıma gösterildi ama bu veri bloğu artabilir. yani değişken görülmeli. HEr veri bloğunun arasına 1 satırlık ayraç koymamız gerekiyor hocam ...

Şimdiden teşekkürler...
 

Ekli dosyalar

metehan8001

Moderator
Yönetici
Moderatör
#9
Ahmet beyden cevap gelene kadar bu benden alternatif olsun.
Kod:
Sub Sayfa2ye_Aktar()
 Application.ScreenUpdating = False
 Set s1 = Sheets("Acil_DURUM")
 Set s2 = Sheets("Acil_Durum_KAYIT")
 sat = s1.Cells(Rows.Count, 1).End(3).Row
 son = s2.Cells(Rows.Count, 2).End(3).Row + 2
 If son = 5 Then son = 4 
For i = 4 To sat
 s2.Cells(son, 1) = s1.Cells(i, 1)
 s2.Cells(son, 2) = Format(s1.Cells(1, "g"), "dd.mm.yyyy") 
s2.Cells(son, 3) = Format(s1.Cells(2, "g"), "dd.mm.yyyy") 
s2.Cells(son, 4) = s1.Cells(i, 2) 
s2.Cells(son, 5) = s1.Cells(i, 3) 
s2.Cells(son, 6) = s1.Cells(i, 4) 
s2.Cells(son, 7) = s1.Cells(i, 5) 
s2.Cells(son, 8) = s1.Cells(25, 2) 
s2.Cells(son, 9) = s1.Cells(25, "g") 
son = son + 1
 Next i 
MsgBox "İşlem Tamam aktarmalar yapıldı", vbInformation + vbMsgBoxRtlReading, "Aktarma Yapıldı" 
Application.ScreenUpdating = True
 End Sub
 

Ekli dosyalar

ozded

New member
Üye
#11
İyi günler.. Aranıza yeni katıldım.. size bir sorum olucaktı bende ana bir sayfadan 400 den fazla çalışma sayfasına veri atamak istiyorum. Fakat bende biraz durumlar karışık ana sayfamda bir liste var ve 494 satır var bunların hepsi bir etken madde adı etken maddelerin yanına her veri girildiğinde sütun değişiyor haliyle ve bu sütunllardaki verileri ben bu 494 tane etken madde için açtığım satırda hep aynı sütuna aktarmak istiyorum bu nasıl yapabilirim? kendim bişeyler denedim ama olmadı denediğim makroyuda sizinle paylaşabilirim isterseniz. Teşekkürler şimdiden iyi günler...
 

alperduryaz

New member
Üye
#12
İyi günler.. Aranıza yeni katıldım.. size bir sorum olucaktı bende ana bir sayfadan 400 den fazla çalışma sayfasına veri atamak istiyorum. Fakat bende biraz durumlar karışık ana sayfamda bir liste var ve 494 satır var bunların hepsi bir etken madde adı etken maddelerin yanına her veri girildiğinde sütun değişiyor haliyle ve bu sütunllardaki verileri ben bu 494 tane etken madde için açtığım satırda hep aynı sütuna aktarmak istiyorum bu nasıl yapabilirim? kendim bişeyler denedim ama olmadı denediğim makroyuda sizinle paylaşabilirim isterseniz. Teşekkürler şimdiden iyi günler...
Merhaba, yeni bir konu açıp oraya örnek dosya da ekleyebilirseniz gözümüzde daha iyi canlanacaktır.
 
Üst