bir hücredeki değer değiştiğinde diğer hücredeki değerin değişmesi

[azure]

arkadaşlar iyi günler
A1 hücresinde her değer değiştiğinde
B1 hücresindeki değer a1/1 olsun. Yani slashtan sonraki değer a1 hücresi değiştiğinde 1 olsun
Mesela
A1 3
B1 3/5

A1 4 olunca
B1 4/1 olsun

Umarım açıklayıcı olmuşumdur.

 

[Ömer]

Merhaba,

B1 deki formül,

=A1/5 iken

A1 değerini değiştirince,

=A1/1

olarak mı değişmesini istiyorsunuz..

.

 

[azure]

slash bölüm işlemi olarak değilde ayırma işlemi olarak kullanılacak.

 

[azure]

arkadaşlar tam açıklayıcı olmamış galiba size şöyle anlatayım ben lastik fabrikasında çalışıyorum.

sizden istediğim şu her lastik için bir versiyon numarası var bu versiyon numarası diyelim a1 de yazılı. ayrıca lastiğin versiyonunun yanında alt işlemler için revizyon numarası var
o da b1 de versiyon numarası ile yazılıyor versiyon numarası / revizyon numarası diye. versiyon numarası değişene kadar revizyon numaralrı artıyor. örnek verirsek eğer diyelim bu lastiğin versiyonu 1 ve a1 de yazsın versiyonu 2 olana kadar b1 de 1/1 , 1/2, 1/3 diye revizyon numaraları gitsin. versiyon 2 olunca otomatikmen 2/1 den devam etsin istediğim bu umarım açıklayıcı olmuşumdur.

şimdiden teşekkürler.

 

[Ömer]

Küçük bir örnek ekleyerek dosya üzerinde açıklarmısınız..

 

[azure]

şu anda kullandığım bilgisayarda ne yazık ki excel yok ama size biraz daha açmaya çalışayım

şimdi A1 hücresinde versiyon numarıası var örneğin 1 b1 hücresinde ise bu versiyon numarası ile alt versiyon numarası yan yana yani 1/1 gibi. versiyon numarası değişmeden altversiyon numaraları 1/1 1/2 1/3 1/4 diye artar. ama versiyon numarası 2 olunca alt versiyon numarası örnekteki gibi dörtten tekrar 1 e inecek yani 2/1 2/2 2/3 gibi ve versiyon değişene kadar böyle gidecek.
umarım açıklayıcı olmuşumdur.

 

[azure]

yardımcı olacak kimse yok mu?

 

[Ömer]

Çalışma sayfasının kod bölümüne kopyalayınız..

Private Sub Worksheet_Change(ByVal Target As Range)
    If Intersect(Target, [A:A]) Is Nothing Then Exit Sub
    Target.Offset(0, 1) = Target & "/" & _
    Split(Target.Offset(0, 1), "/")(1)
End Sub

.

 

[azure_tr]

yardımcı olduğunuz için teşekkürler ancak split satırında hata veriyor...

 

[Ömer]

yardımcı olduğunuz için teşekkürler ancak split satırında hata veriyor...

"/" bulamadığı için hata veriyor. Oysa siz veriler bu şekilde olacak demiştiniz.

Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
    If Intersect(Target, [A:A]) Is Nothing Then Exit Sub
    Target.Offset(0, 1) = Target & "/" & _
    Split(Target.Offset(0, 1), "/")(1)
End Sub

Bu şekilde deneyiniz. Yine hata alırsanız örnek dosyanızı eklemenizi rica ederim.

 

[azure]

ilginiz için teşekkür ediyorum örnek dosyayı gönderiyorum.

 

[azure]

yardımlarınızı bekliyorum.

 

[azure]

arkadaşlar slash olayı gerekli olmadığından dolayı kaldırdık versiyon 1 olduğu zman revizyon 1,2,3,4 olarak devam edecek versiyon 2 olduğu zaman tekrar 1.den başlayarak 1,2,3,4 olarak devam edecek örnek dosyada anlatmaya d çalıştım umarım yardımcı olursunuz.yardımlarınız için şimdiden teşekkürler.

 

[Ömer]

Sorunuzu anlamakta zorlanıyorum.

Bu istediğiniz tek sayfadamı oluyor yoksa farklı sayfalarda mı.

Sorularınızı daha detaylı açıklamaya özen gösteriniz. Anlaşılmayan sorulara cevap alma süreniz uzayacaktır..

.

 

[azure_tr]

ömer bey sabrınız için teşekkürler biraz karmaşık farkındayım.
size basından anlatayım şimdi bizim lastik fabrikasında pişirme tanımlarımız var. her bir lastik için bir çalışma kitabı içinde yaklaşık 200 tane sayfalar halinde tanımımız var. her bir tanımda örnekte verdiğim gibi o lastiğin versiyonu var bu versiyon lastik imal versiyonu (örnekte sağ üste yazan) var. örnekte görüldüğü gibi sol altta ise revizyon numarası var. diyelim ki lastik yeni bir lastik ve versiyon numarası 1 ama bu versiyon numarası altında lastikte her hangi bir değişiklik yaptığımız da yaptığımız değişklik revizyon numarası olarak işleniyor.yani 1. versiyonda yaptığımız her bir değişiklik revizyon numarası 1 den başlayarak 1,2,3,4 olarak devam ediyor. daha sonra lastiğimizin versiyonu 2 olduğu zman revizyon numarası otomatikman 1 den baslayarak 2. revizyon 3 olana kadar 1,2,3,4 olarak devam ediyor ta ki yeni versiyon numarası girildiği zman.

 

[azure]

umarım açıklayıcı olmuştur.

 

[Ömer]

Önce tüm sayfalara eski eklediğiniz kodları silin. Daha sonra aşağıdaki kodu ThisWorbook kod sayfasına kopyalayınız..

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
 
Dim d
Dim s
Dim deg As Variant, i As Integer
 
On Error Resume Next
If Intersect(Target, [I9]) Is Nothing Then Exit Sub
 
Set d = CreateObject("Scripting.Dictionary")
 
For i = 1 To Sheets.Count
    With Sheets(i)
        .Range("C60").NumberFormat = "General"
        deg = .Range("I9")
        If Not d.exists(deg) Then
            s = Array(.Range("I9"), 1)
            d.Add deg, s
            .Range("C60") = 1
        Else
            s = d.Item(deg)
            s(1) = s(1) + 1
            d.Item(deg) = s
            .Range("C60") = s(1)
        End If
    End With
Next i
 
End Sub

.