Veri depolama...

[leumruk]

Selamlar,
Ana sayfada hazırladığım tablodaki verilerin exelin başka bir sayfasında depolanmasını istiyorum. Mesela A1:A25 arası veri giriş sütunu olsun. Buraya girdiğim verileri bir başlık altında başka bir sayfaya kaydetmesini, her girilen yeni veriyi yeni başlık altında depolanan sayfada boş bulduğu ilk yere depolamasını. Sonra eklediğimiz başlığı tıkladığımızda bu verilerin yeniden A1:A25 arasına gelmesini istiyorum. Pek anlatamadım, ama uzmanlarımız sağalsun leb demeden leblebiyi anlıyorlar. Cevabının hemen geleceğine eminim. Yine de bir ek dosya yolluyorum ilgilenirseniz sevinirim.

 

[leumruk]

Arkadaşlar,
cevabınızı sabırla bekliyorum.

 

[Necdet]

Merhaba,

İki adet kod yazdım. Biri sayfa2 ye aktarmak için, diğeri de Sayfa2 den belirlenen başlık ile çekmek için. Konu Başlığı ile bilgileri getirmek için Sayfa1 deki B sütununda ilgili konu başlığına çift tıklamak yeterli.

İkinci kod Sayfa1 in kod bölümünde.

Konu başlığını belirlerken Çift olup olmadığını kontrol etmedim. Onu da size bıraktım

Sub Aktar()
Baslik = Application.InputBox("Baslık Belirleyiniz", "Başlık", "Baslık 1")
If Baslik = False Then Exit Sub
Set s1 = Sheets("Sayfa1")
Set s2 = Sheets("Sayfa2")
Sat = s1.[B65536].End(3).Row + 1
s1.Cells(Sat, "B") = Baslik
Sat = s2.[A65536].End(3).Row
For i = 2 To s1.[A65536].End(3).Row
    Sat = Sat + 1
    s2.Cells(Sat, "A") = Baslik
    s2.Cells(Sat, "B") = s1.Cells(i, "A")
Next i
MsgBox Baslik & " Altında Sayfa2 ye Aktarılmıştır"
s1.Range("A2:A" & s1.[A65536].End(3).Row).ClearContents
End Sub

Sayfadaki Kod :

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
On Error GoTo Son
If Intersect(Target, [B:B]) Is Nothing Then Exit Sub
If Target.Row = 1 Then Exit Sub
Set s1 = Sheets("Sayfa1")
Set s2 = Sheets("Sayfa2")
Application.ScreenUpdating = False
s1.Range("A2:A65536").ClearContents
Sat = 1
Set Bul = s2.Columns(1).Find(Target.Value)
    If Not Bul Is Nothing Then
    j = Bul.Row
        Do
            Sat = Sat + 1
            s1.Cells(Sat, "A") = s2.Cells(j, "B")
            j = j + 1
        Loop Until s2.Cells(j, "A") <> Target
    End If
Application.ScreenUpdating = True
MsgBox "Aktar&#305;m Tamamlanm&#305;&#351;t&#305;r"
Son:
End Sub

 

[leumruk]

Merhaba,

İki adet kod yazdım. Biri sayfa2 ye aktarmak için, diğeri de Sayfa2 den belirlenen başlık ile çekmek için. Konu Başlığı ile bilgileri getirmek için Sayfa1 deki B sütununda ilgili konu başlığına çift tıklamak yeterli.

İkinci kod Sayfa1 in kod bölümünde.

Konu başlığını belirlerken Çift olup olmadığını kontrol etmedim. Onu da size bıraktım

Sn. Hocam, ilginizden dolayı teşekkür ederim. Evet istediğim, hemen hemen bu. Bir kaç farklılık var. İsteğimi daha net ifade edebilmek için maddelendiriyorum:
1- Bendeki giriş tablosu örneğin; B7:B205 arası. Ben bu aralıktaki veriyi diğer sayfanın mesela C sütununa girmek istiyorum ve B7:B205 aralığındaki tüm verilerin tek bir başlığı olmasını istiyorum.
2- Bu başlık örnek C3 hücresinde olsun. Girdiğim veri de bu hücrenin hemen altına yerleşsin. Yani C4:C201 aralığına.
3- Yeni girdiğim verinin de D sütununa yerleşmesini istiyorum. Yani kayıt alta doğru değil, yana doğru ilerlesin.
4- Eğer mümkünse verileri aktarma şeklinde değil, kopyala yapıştır formatında diğer sayfaya kaydatmek istiyorum, aksi taktirde biçim kaydolmuyor.
5- Son olarak, başlıkları hücre içine değilde, eğer oluyorsa açılır liste butonu şeklinde bir şeye kaydetmek istiyorum.

Biliyorum, isteğim biraz fazla oldu, kusura bakmayın. Şimdiden çok ama çok teşekkür ederim...

 

[Necdet]

Merhaba,

Umarım sorunuzu anlamışımdır. Ekli dosyayı inceleyiniz.

 

[leumruk]

Merhaba,

Umarım sorunuzu anlamışımdır. Ekli dosyayı inceleyiniz.

Hocam, yine maddeleyerek aktaracağım.
1- Şu anki gönderdiğniz dosyada açılır liste tam istediğim gibi. Onda bir sorun yok.
2- Başlık verip yana kaydetme kısmı da istediğim gibi ama bir sorun var: Veri giriş kısmından veriyi girip aktar dediğimde sürekli sayfa2'nin D sütununa kaydediyor. Böyle olunca bir önce girilen veri siliniyor. Benim isteğim, mesela D sütununa kaydettikten sonra, diğer girişi E sütununa, bir sonrakini F'ye kaydetsin. Eğer kayıt sırasında sütun tamamen dolarsa, alt kısımdan yeni seri başlayabilir, yani A30'dan başlayıp B30, C30... tabi bu isteğe bağlı, yoksa öteki de yeterli olur.
3- Yine gönderdiğiniz örnekte Aktarı tuşladığımızda veriyi aktarırken, aynı zamanda siliyor. Ben silmesini istemiyorum, onu sil butonuyla hallettim.
4- Bir de veri girişte belli bir aralığa veri girişi yapacağım için, kopyalama işleminin belli bir aralığı kapsaması bana daha uygun olur. Gördüğü veriyi değil de, mesela A5:A25 aralığındaki veriyi alıp kopyalasın
Hocam, şimdilik bu kadar, size de zahmet veriyorum. İlginizden dolayı çok teşekkür ediyorum. Sağolun. Cevabınızı bekliyorum...

 

[Necdet]

Merhaba,

Evet gözümden kaçmış hep aynı kolona kopyalıyordu.
Kodu düzelttim.

 

[leumruk]

Merhaba,

Evet gözümden kaçmış hep aynı kolona kopyalıyordu.
Kodu düzelttim.

Üstad, sağolasın, ellerine sağlık. Tam istediğim gibi olmuş. Eliniz değmişken son bir istek, tabi vaktiniz varsa...
Veriyi aktarırken dolgu rengi ve çerçeveyi aktarmasın, veriyi geri getirirken de sadece metni alsın. Sebebine gelince, hazırladığım veri giriş tablosu renkli ve çerçeveli. Veriyi geri çağırınca veri giriş tablosunun rengi beyaza dönüyor.

 

[leumruk]

Necdet hocam, daha önce gönderdiğiniz dosyada aynı başlık altında veriyi kaydetmiyor, uyarı veriyordu. Uyarı metni makroda da görünüyor zaten. Son dosyada bu uyarıyı vermiyor ve aynı başlıkta veri kaydına izin veriyor. İlgilenirseniz sevinirim. Bir önceki mesajı da okur musunuz?

 

[Necdet]

Merhaba,

Sütundan satıra geçince kontrolü unutmuşum.

B7:B31 arasını kopyalattırdım.

 

[Anarchic]

Neden indirme yapamiyorum ?

 

[Necdet]

Neden indirme yapamiyorum ?

Merhaba,

Eski dosyaların çoğuna ulaşamıyorsunuz. Foruma saldırıdan sonra Server değişikliği sırasında yedek olmadığı için yüklenmedi.

Ancak bazı dosyalar arkadaşlarımızın arşivlerinde varsa ve onlar yüklerse bizde o dosyalara ulaşmış oluyoruz.

 

[cemalinabisi]

hocam dosyanızı indiremiyorum aşağı yukarı aynı tablolamadan banada lazım

 

[Necdet]

hocam dosyanızı indiremiyorum aşağı yukarı aynı tablolamadan banada lazım

Merhaba,

12. mesajı okumadınız sanırım.