ilgili sayfadaki adedin değiştirilmesi

[yesilcan]

değerli hocalarım,ekdeki dosyamda açıklaması yaptığım sorumun çözümlenmesi için yardımlarınızı bekliyorum.

saygılarımla..

 

[Orion1]

İstediğiniz ekli dosyadaki gibimi?

 

[yesilcan]

evet hocam bunu gibi ama ;

sayfa isimlerinin yanına yazan adetlerde değişiklik yaptığım zaman mesela ; aradığım ürün a1 sayfasında 50 adet var.kontrol sayfasında a1 hücresinin yanına 50 adedi yazıyor ben o adedi 25 olarak düzeltip başka bir butona bastığımda a1 sayfasındaki ilgili ürünün adedide değiştirebilirmiyiz.
umarım anlatabilmişimdir.

saygılarımla..

 

[Orion1]

sayfa isimlerinin yanına yazan adetlerde değişiklik yaptığım zaman mesela ; aradığım ürün a1 sayfasında 50 adet var.kontrol sayfasında a1 hücresinin yanına 50 adedi yazıyor ben o adedi 25 olarak düzeltip başka bir butona bastığımda a1 sayfasındaki ilgili ürünün adedide değiştirebilirmiyiz.
umarım anlatabilmişimdir.
saygılarımla..

Ekli dosyayı inceleyiniz.

Sub degistir()
Dim k As Byte, i As Byte
For k = 3 To 15 Step 4
    For i = 9 To 33 Step 2
        If Sheets("KONTROL").Cells(i, k).Value = "" Then GoTo atla
        syf = Cells(i, k).Value
        Set j = Sheets(syf).Range("A:A").Find(Sheets("KONTROL").TextBox2.Value, , xlValues, xlWhole)
        If Not j Is Nothing Then
            Sheets(syf).Cells(j.Row, "B").Value = Sheets("KONTROL").Cells(i, k + 2).Value
        End If
atla:
    Next i
Next k
Set j = Nothing
MsgBox "Değiştirme gerçekleşti..!!", vbOKOnly + vbInformation, "DEĞİŞİKLİK"
End Sub

 

[yesilcan]

çok teşekkür ederim hocam

sonsuz teşekkürlerimi sunuyorum.çok sağolun.çalışma hayatında başarılarınızın devamını dilerim.

 

[Orion1]

sonsuz teşekkürlerimi sunuyorum.çok sağolun.çalışma hayatında başarılarınızın devamını dilerim.

Rica ederim.
İyi çalışmalar.

 

[mesutsmo1]

dosyam ekte çok kolay aslında biliyorum ama bilmeynce

a106 tan itibaren başlayan listeden sarı ile işaretli alandaolduğu gibi yanda n sütünundaki kart nosuna göre kopyalayıp a5 e yapıştıracak bir komut düğmesi istiyorum sadece bu saygılarımla..

kısaca 1 nolu kart bilgileri sonra 2 sonra 3 ...yukarı kart kart yapışacak tuşa her bastığımda yeni kart bilgileri gelsin istiyorum..

 

[mesutsmo1]

daha önce yolladığım sorunun

dasyası ekte saygılarımla..

 

[Orion1]

Sorunuzu yeni bir başlık açarak sorarsanız ilgilenen arkadaşlarda cevap verecektir.

 

[mesutsmo1]

yeni konu açtım inşallah dediğiniz gibi olur bu hususu sizde yapardınız müsait değildinizherhalde..saygılarımla..