Excelde en basit şekilde veritabanı oluşturmak

[guento]

Merhaba;
Dosyanın içinde ne yapmak istediğimi daha açık bir şekilde açıklamaya çalıştım...Umarım yardımcı olabilirsiniz...

Şimdiden çok teşekkürler...

 

[Ömer]

Merhaba,

Eki inceleyiniz. Birleştirilmiş hücreleri kaldırdığım için dosya ekledim. Eğer tablo düzeninizi değiştirmek istemezseniz.

Sub Ekle()
For i = 12 To [A65536].End(3).Row
If Cells(i, "a") = Day(Range("[COLOR=red]F1[/COLOR]")) Then
Range("B2:B6").Copy
Cells(i, "b").PasteSpecial Paste:=xlPaste[COLOR=red]Values[/COLOR], Transpose:=True
Application.CutCopyMode = False
Range("B1").Select
End If
Next
End Sub

Bu şekilde kullanırsınız..
.

 

[guento]

çok teşekkürler.. acaba "tıkla"ya bastığımda daha önceden eklenmiş sayının üstüne ekleyebilir mi?

 

[Ömer]

çok teşekkürler.. acaba "tıkla"ya bastığımda daha önceden eklenmiş sayının üstüne ekleyebilir mi?

Üzerine eklemeden kastınız toplama ise kodları aşağıdaki gibi değiştiriniz..

Sub Ekle()
For i = 12 To [A65536].End(3).Row
If Cells(i, "a") = Day(Range("F1")) Then
Range("B2:B6").Copy
Cells(i, "b").PasteSpecial Paste:=xlPasteAll, Operation:=xlAdd, Transpose:=True
Application.CutCopyMode = False
Range("B1").Select
End If
Next
End Sub

.

 

[guento]

öncelikle hızlı cevaplarınız ve yardımlarınız için çok teşekkürler...

....peki veriyi kitap 1 den alıp yine aynı şekilde(tarihine göre) kitap 2 (başka bi excel dosyası)içindeki hücreye artarak kopyalayabilirmiyiz?

....üstüste aynı veri girildiğinde "bu veri daha önceden girilmiştir" bilgisi verebilir mi?

....ve mesela en son veri yanlış girildiyse "geri al" tuşuyla en son girilen veri kitap 2 den eksiltilebilir mi?

yardımlarınız için gerçekten çok ama çok teşekkürler...

 

[Ömer]

Merhaba,

Bahsettiğiniz konuyla ilgili bir bilgim yok maalsef.

Ayrıca geç yazdığım cevap için kusura bakmayın. Geçmişe dönük konuları incelerken bu konuya cevap yazmadığımı yeni farkettim.

Dilerseniz bu sorunuzu yeni bir başlık açarak sorunuz.

İyi çalışmalar.