Cevaplandı Diğer Sayfaya veri aktarma

muratbalci59

Yeni Üye
Üye
Katılım
19 Eki 2018
Mesajlar
4
Tepki puanı
1
Puanları
3
Excel Versiyonu, Dili
Bilinmiyor
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...
 

AhmetRasim

Destek Takımı
Destek Takımı
Katılım
15 Eki 2018
Mesajlar
50
Tepki puanı
47
Puanları
18
Excel Versiyonu, Dili
Excel 2019 TR
Merhabalar Sn. muratbalci59;
Çalışmanıza uygun olacak şekilde Örnek bir dosya eklerseniz, yardım almanız kolaylaşacaktır.
 

alperduryaz

Yeni Üye
Üye
Katılım
1 Eki 2018
Mesajlar
11
Tepki puanı
6
Puanları
3
Excel Versiyonu, Dili
Bilinmiyor
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
 

muratbalci59

Yeni Üye
Üye
Katılım
19 Eki 2018
Mesajlar
4
Tepki puanı
1
Puanları
3
Excel Versiyonu, Dili
Bilinmiyor
Sayın Hocam...

Söylediğiniz üzere excel dosyasını EKTE yolluyorum. Dosya içerisinde talebimi de yeniden yazdım.

Emek ve çalışmalarınızda başarılar dilerim.

Kolay gelsin.
 

Ekli dosyalar

AhmetRasim

Destek Takımı
Destek Takımı
Katılım
15 Eki 2018
Mesajlar
50
Tepki puanı
47
Puanları
18
Excel Versiyonu, Dili
Excel 2019 TR
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

Yeni Üye
Üye
Katılım
19 Eki 2018
Mesajlar
4
Tepki puanı
1
Puanları
3
Excel Versiyonu, Dili
Bilinmiyor
Ellerinize ve Emeklerinize sağlık!!! Denedim, gayet güzel çalışıyor.

Teşekkürler...
 

AhmetRasim

Destek Takımı
Destek Takımı
Katılım
15 Eki 2018
Mesajlar
50
Tepki puanı
47
Puanları
18
Excel Versiyonu, Dili
Excel 2019 TR
Merhabalar;
Rica ederim.
Saygılarımla, iyi çalışmalar.
 

muratbalci59

Yeni Üye
Üye
Katılım
19 Eki 2018
Mesajlar
4
Tepki puanı
1
Puanları
3
Excel Versiyonu, Dili
Bilinmiyor
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

Feyzullah - XD Yönetim
Yönetici
Forum Yöneticisi
Katılım
1 Eki 2018
Mesajlar
214
Tepki puanı
103
Puanları
43
Konum
Osmaniye
Web Sitesi
www.exceldepo.com
Excel Versiyonu, Dili
Excel 2016 TR
Ahmet beyden cevap gelene kadar bu benden alternatif olsun.
PHP:
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

Son düzenleme:

AhmetRasim

Destek Takımı
Destek Takımı
Katılım
15 Eki 2018
Mesajlar
50
Tepki puanı
47
Puanları
18
Excel Versiyonu, Dili
Excel 2019 TR
Merhabalar Sn. muratbalci59;
İşlerden dolayı foruma bakamadım kusura bakmayın.
Sizin aracılığınız ile Sn. metehan8001 'e teşekkür ederim, konuyu çözüme ulaştırmış.:)(y)
 

ozded

Yeni Üye
Üye
Katılım
7 Kas 2018
Mesajlar
7
Tepki puanı
0
Puanları
1
Excel Versiyonu, Dili
Bilinmiyor
İ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

Yeni Üye
Üye
Katılım
1 Eki 2018
Mesajlar
11
Tepki puanı
6
Puanları
3
Excel Versiyonu, Dili
Bilinmiyor
İ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