a1 hücresine farklı farklı değerler

[nelez]

Arkadaşlar excelde a1 hücresine farklı farklı değerler girmem gerekiyor. A1 hücresine girdiğim degerleri başka bir sayfada c sutununda alt alta tarihleriyle görmem gerekiyor bunun için nasıl bir formül yazmalıyım bunu nasıl yapabilirim. Yardımcı olacak arkadaşlara şimdiden teşekür ederim.

 

[Ömer BARAN]

Merhaba.

-- Alt taraftan giriş sayfa adına fareyle sağ tıklayıp KOD GÖRÜNTÜLEyi seçin,
-- açılan VBA ekranında, sağ taraftaki boş alana aşağıdaki kod'u yapıştırın,
-- db sayfası D sütununu tarih / tarih ve saat biçimlerinden istediğinizle biçimlendirin.

İşlem sonrasında giriş sayfası A1 hücresindeki, db sayfasına aktarılan veriyi,
aktarma sonrasında silmek istemiyorsanız kırmızı renklendirdiğim kısımı silin..
.

[FONT="Arial Narrow"][B]Private Sub Worksheet_Change(ByVal Target As Range)[/B]
If Intersect(Target, [[B][COLOR="Blue"]A1[/COLOR][/B]]) Is Nothing Then Exit Sub
If Target = "" Then Exit Sub
Sheets("db").Cells(Sheets("db").[C65536].End(3).Row + 1, 3) = Target
Sheets("db").Cells(Sheets("db").[D65536].End(3).Row + 1, 4) = Now
[COLOR="red"]Target = ""[/COLOR]
[B]End Sub[/B][/FONT]

 

[nelez]

hocam şimdi a1 hücresine a5 de yazdığım rakamın 5 fazlasına yazdırıp diğer sayfada listeleme yapmak istiyorum, ama yapamadım

Target = ""

silmeme rağmen olmadı
ekte dosya örneği ekledim

 

[Ömer BARAN]

Tekrar merhaba.

Yanlış anlamadıysam A5 hücresine elle veri yazılacak;
-- A5 hücresine yazılan değerin 5 fazlasının A1 hücresine yazılmasını,
-- A5 hücresine yazılan değerin, aynı zamanda diğer sayfa C sütununa, tarih-saatle birlikte kaydedilmesini istiyorsanız;
mevcut kod'u aşağıdakiyle değiştirin.

İşlem sorasında, A5'e yazılan değerin silinmesini istemiyorsanız kırmızı kısmı silin.
.

[FONT="Arial Narrow"][B]Private Sub Worksheet_Change(ByVal Target As Range)[/B]
If Intersect(Target, [A5]) Is Nothing Then Exit Sub
If Target = "" Then
Target.Activate: Exit Sub: End If
Cells(1, 1) = Target + 5
Sheets("db").Cells(Sheets("db").[C65536].End(3).Row + 1, 3) = Target + 5
Sheets("db").Cells(Sheets("db").[D65536].End(3).Row + 1, 4) = Now
[COLOR="Red"]Target = ""[/COLOR]
[B]End Sub[/B][/FONT]

 

[nelez]

Tekrar merhaba.

Yanlış anlamadıysam A5 hücresine elle veri yazılacak;
-- A5 hücresine yazılan değerin 5 fazlasının A1 hücresine yazılmasını,
-- A5 hücresine yazılan değerin, aynı zamanda diğer sayfa C sütununa, tarih-saatle birlikte kaydedilmesini istiyorsanız;
mevcut kod'u aşağıdakiyle değiştirin.

İşlem sorasında, A5'e yazılan değerin silinmesini istemiyorsanız kırmızı kısmı silin.
.

[FONT="Arial Narrow"][B]Private Sub Worksheet_Change(ByVal Target As Range)[/B]
If Intersect(Target, [A5]) Is Nothing Then Exit Sub
If Target = "" Then
Target.Activate: Exit Sub: End If
Cells(1, 1) = Target + 5
Sheets("db").Cells(Sheets("db").[C65536].End(3).Row + 1, 3) = Target + 5
Sheets("db").Cells(Sheets("db").[D65536].End(3).Row + 1, 4) = Now
[COLOR="Red"]Target = ""[/COLOR]
[B]End Sub[/B][/FONT]

teşekkür ederim hocam.
peki a1 hücresine karışık bir formul yazmak istediğimde bunu makro üzerinden mi yapmam gerekiyor?

 

[Ömer BARAN]

Tekrar merhaba Sayın nelez.

Benim gibi birçok üyenin, üşenmeden uğraşıp ve cevap yazdığı malumdur.

Ancak her cevabınız, önceki çözüm önerilerinin ve uğraşıların boşa gitmesine neden oluyor.
Neticede bu süre zarfında, başka üyelerin açtığı konularla da ilgilenilememiş oluyor.

Bu şekilde bir yere varılması mümkün değil sanırım.
"Peki şöyle olursa", "ya şöyle yapmak istersem" gibi cümlelerin sonu yok.

A1 ile başladık, A5'e geçtik ve 5 fazlası dedik.
Şimdi de ne demekse "karışık bir formül" diyorsunuz ama
örnek belgenizde A1 hücresinde herhangi bir formül yok.

Sorunuzu başı-sonu belli olacak şekilde ve gerçek belgenizle aynı yapıda örnek belge ekleyerek sorunuz.
(cevaplarımın altındaki İMZA bölümünü okuyunuz)
.