Nasıl bir fonksiyon kullanılmalı

[snx111]

sayfa2. nin kodları ;
sayfa1re ve b stunu 2ci satıra kopyalayacak ...

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim bul_sat As Long, son_sat As Long
Dim cll As Range, rng As Range
Dim ara_alan As Range, bul_alan As Range
Dim krit As Variant
say = 1
son_sat = Sayfa2.Cells(Rows.Count, 2).End(3).Row
son_sat2 = Sayfa1.Cells(Rows.Count, 1).End(3).Row
For Each cll In Sayfa1.Range("a6:a" & son_sat2)
On Error Resume Next
krit = cll.Value
Set ara_alan = Sayfa2.Range("b4:b" & son_sat)
Set bul_alan = ara_alan.Find(krit, LookIn:=xlValues, LookAt:=xlWhole)
If Not bul_alan Is Nothing Then
bul_sat = bul_alan.Row
Set rng = Sayfa2.Range("c" & bul_sat)
If say = 1 Then rng.Copy Destination:=Sayfa1.Range("b" & cll.Row + 1)
End If
Next
MsgBox "birim fiyat güncellendi " _
& Time
Sayfa1.Select
End Sub

 

[gezgin3458]

abi yaptım ama olmadı.
sayfa 1. 1. satırdaki fiyatı değiştiremiyorum silemiyorum. yani alım maliyeti her seferinde güncelleniyor. yeni verdiğin kodlar 2. satıra kopyalanıyor evet ama bazısına geliyor bazısına gelmiyor.

 

[snx111]

sayfa2 de veri yoktur o zaman ?ondan boştur konfurt bende boş çıkıyor; çünki öyle bir senet adı yok

 

[gezgin3458]

abi senet adını liste yaptım ordan seçtiriyorum.
netaş seçtik diyelim, alış yani birinci rakamı yazıyor (siliyorum maliyetini yazıyorum tekrar güncel fiyata değişiyor) ikinci rakam yani satış yani 2.satır boş kalıyor. ama 2.sayfaya gidip birim fiyat güncellendi uyarısına okey dediğimde beni 1. sayfaya atıyor ve orda 2.satırda da güncel fiyat geliyor ama üstünden başka satıra tıklayınca kayboluyor.

 

[snx111]

sayfa1 deki varsa selection changeyi komple silmelisin şimdilik;

sorunu halledecegim

 

[gezgin3458]

eyvallah
seni daha fazla yormayayım. 2 satırı 1 satıra indiriyorum.
şimdi yazdırmaya çalıştığımız yer satış "son fiyat" kısmı olur ve otomatik olarak güncellerinir. Daha içerde aynı satıra açtığım mesala komisyonun yanına açtığım yerde alım fiyatı olur ona göre toplamlarını vs aldırırım bu dertte halledilmiş olur.


butonu halledebilecekmiyiz.

 

[snx111]

onay kutusu tam olarak ne yapacak ? hangi hücrede olacak ?

 

[gezgin3458]

abi şu işe yarayacak
1 veya 2.satırın başında veya sonunda neresi uygunsa. ben satış yaptığımda diyelim 1 tl den o onay kutusunu (sat) veya işaretlediğimde bastığımda 3.sayfa olarak oluşturacağımız geçmiş işlemler sayfasına 1 ve 2.satırı komle aktaracak. satış yaptığımız içinde kasada kalan nakit kısmı da okeyle birlikte otomatik olarak artacak.

dolayısı ile bu durumda aşağıya doğru uzayan bir listemiz olmayacak. atıyorum 5 hisse varsa 5 kalem liste oalcak sat dediğimde o satırları 3.sayfaya alacak ordan silecek ve miktarı nakit tutara ilave edecek.

mümkünse tabi değilse boşver. bu yeni bir sayfa değilde mevcut tablonun yan tarafında ki boşluğa da olabilir hangisi koalyına gelirse

 

[snx111]

iş yerindemi kullancaksın kendinemi istiyorsun bunu hani 2010 yükleme durumun varmı ?

 

[snx111]

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim bul_sat As Long, son_sat As Long
Dim cll As Range, rng As Range
Dim ara_alan As Range, bul_alan As Range
Dim krit As Variant
'say = 1
Sayfa1.Select
Application.ScreenUpdating = False

On Error Resume Next
son_sat = Sayfa2.Cells(Rows.Count, 2).End(3).Row
son_sat2 = Sayfa1.Cells(Rows.Count, 1).End(3).Row
For Each cll In Sayfa1.Range("a6:a" & son_sat2)
Sayfa1.Select
krit = cll.Value
If krit = Empty Then GoTo 1
Set ara_alan = Sayfa2.Range("b4:b" & son_sat)
Set bul_alan = ara_alan.Find(krit, LookIn:=xlValues, LookAt:=xlWhole)
If Not bul_alan Is Nothing Then
bul_sat = bul_alan.Row
Set rng = Sayfa2.Range("c" & bul_sat)
 rng.Copy Destination:=Sayfa1.Range("b" & cll.Row + 1)
End If
1 Next
MsgBox "birim fiyat güncellendi " _
& Time

End Sub

ilk istediğiniz sayfaya uygun kodlar 1 ci satırı bozmadan sadece 2 ci satırda işlem görecek

 

[snx111]

onay kutusu için forumda ufak bi arama yaparsanız onay kutularını istediğiniz hücrelere koyabilirisniz ;

 

[mrfresh]

merhaba herkese. bir sorum olacak ama işleyişim bilmediğim için yeni konu açmadan buradan sormak istedim.

Aşağıdaki verilere sahibim.

1 A
2 A
1 B
2 B
3 A
3 A
2 B
1 B
2 B
3 B
4 A
3 A
1 A
1 A
1 A

bu verilere göre bir tablo yapmak istiyorum. tablo şöyle olacak;

.....A B
1
2
3
4

Tabloda 1'in kaç tanesi A ise A ile 1'in kesiştiği hücreye o rakam gelecek. 2'nin kaçtanesi B ise 2 ile B'nin kesiştiği yere o gelecek gibi.

yardımcı olursanız sevinirim. şimdiden teşekkürler herkese.
saygılar

 

[mrfresh]

sarı renkteki tablonun kendiliğinden oluşmasını ben sol taraftaki listenin altına yeni değerler [(1 - B) (2 - A) (4 - A) gibi] girdikçe tablo kendini sürekli güncellesin istiyorum.

saygılar ve teşekkürler.