Skip to main content

AccessTr.neT


Excel Tablodan Değer Güncelleme Yardımı

Excel Tablodan Değer Güncelleme Yardımı

Çözüldü #1
İyi günler
Ekte gördüğünüz gibi bir boyama programını yaptım ve kullanıyorum.
Fakat boya miktarlarını güncellemekte zorlanmaktayım.

örnekte 2 farklı hammade ve 10 tane renk olduğu için yani az ve kolay, gidip boya miktarlarını güncellemek zor değil.

Fakat daha fazla miktarlarda çalıştığım için arayıp bulmak zor oluyor bu yüzden C7,C8,C9 HÜCRELERİNDEKİ boya miktarlarını güncellemek gerektiğinde tek tek arayıp bulmanın daha kolay bir yöntemi bulunmakta mı?
Çünkü B7,B,8,B9 VE C7,C8,C9 hücrelerini formüller bulup getirmekte ben o getirilen değerlerin güncellemesinde takılıyorum.
yardımcı olursanız memnun olurum.
.xls deger_guncelleme2.xls (Dosya Boyutu: 41 KB | İndirme Sayısı: 21)
Son Düzenleme: 16/09/2010, 16:35, Düzenleyen: clodj_e.
Cevapla
Çözüldü #2
Çalışmanız hakkında biraz daha açıklama yapmış olasaydınız anlaması daha basit olurdu.Anladığım kadarı ile siz güncellemeyi D7,D8 ve D9 hücrelerinden yapacaksınız kopyala yapıştır ile basit olarak hazırladığım kodlar aşağıdadır siz gerisini devam ettirirsiniz.

Sub Boya_degistirme()
'&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&& HAMMADDE 1
If Range("B3").Value = 1 Then
If Range("B4").Value = 1 Then
Range("D7").Select
Selection.Copy
Range("M4").Select
ActiveSheet.Paste
Range("D8").Select
Selection.Copy
Range("O4").Select
ActiveSheet.Paste
Range("D9").Select
Selection.Copy
Range("R4").Select
ActiveSheet.Paste
End If
End If
If Range("B3").Value = 2 Then
If Range("B4").Value = 1 Then
Range("D7").Select
Selection.Copy
Range("L5").Select
ActiveSheet.Paste
Range("D8").Select
Selection.Copy
Range("N5").Select
ActiveSheet.Paste
Range("D9").Select
Selection.Copy
Range("Q5").Select
ActiveSheet.Paste
End If
End If


'&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&& HAMMADDE 2
If Range("B3").Value = 1 Then
If Range("B4").Value = 2 Then
Range("D7").Select
Selection.Copy
Range("M20").Select
ActiveSheet.Paste
Range("D8").Select
Selection.Copy
Range("O20").Select
ActiveSheet.Paste
Range("D9").Select
Selection.Copy
Range("R20").Select
ActiveSheet.Paste
End If
End If
If Range("B3").Value = 2 Then
If Range("B4").Value = 2 Then
Range("D7").Select
Selection.Copy
Range("L21").Select
ActiveSheet.Paste
Range("D8").Select
Selection.Copy
Range("N21").Select
ActiveSheet.Paste
Range("D9").Select
Selection.Copy
Range("Q21").Select
ActiveSheet.Paste
End If
End If



Application.CutCopyMode = False
Range("B3").Select
End Sub
Son Düzenleme: 16/09/2010, 23:11, Düzenleyen: Olcay.
Cevapla
Çözüldü #3
Sn:clodj_e
Alıntı:Çalışmanız hakkında biraz daha açıklama yapmış olasaydınız anlaması daha basit olurdu.Anladığım kadarı ile siz güncellemeyi D7,D8 ve D9 hücrelerinden yapacaksınız kopyala yapıştır ile basit olarak hazırladığım kodlar aşağıdadır siz gerisini devam ettirirsiniz.

Bir önceki mesajdada belirtildiği gibi çalışmalarınız hakkında ve sorunuzu açarak yazarsanız anlama açısından daha rahat olur.Alternatif olarak aşağıdaki kodları veriyorum size hangisi basit gelirse onu kullanırsınız.

'&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&& HAMMADDE 1
If Range("B3").Value = 1 Then
If Range("B4").Value = 1 Then
Cells(4, 13) = Cells(7, 4)
Cells(4, 15) = Cells(8, 4)
Cells(4, 18) = Cells(9, 4)
End If
End If
If Range("B3").Value = 2 Then
If Range("B4").Value = 1 Then
Cells(5, 12) = Cells(7, 4)
Cells(5, 14) = Cells(8, 4)
Cells(5, 17) = Cells(9, 4)
End If
End If
'Geri kalanını buradan devam ettiriniz

'&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&& HAMMADDE 2
If Range("B3").Value = 1 Then
If Range("B4").Value = 2 Then
Cells(20, 13) = Cells(7, 4)
Cells(20, 15) = Cells(8, 4)
Cells(20, 18) = Cells(9, 4)
End If
End If
If Range("B3").Value = 2 Then
If Range("B4").Value = 2 Then
Cells(21, 12) = Cells(7, 4)
Cells(21, 14) = Cells(8, 4)
Cells(21, 17) = Cells(9, 4)
End If
End If
'Geri kalanını buradan devam ettiriniz
OĞULCAN & OLCAYTUĞ

Oğulcan Excel Web Sitesi
Excel İle Programlama
Cevapla
Çözüldü #4
çok teşekkürler
iyi çalışmalar
Cevapla
Çözüldü #5
iki yöntem de benim işimi mevcut örnekte görüyor fakat işyerinde kullandığım dosya 1500 renkli ve 36 farklı boya adı var ve 3 farklı hammaddedli dolayısıyla sizin örneğini verdiğiniz kodu yazmam günler alacaktır. kaldıki her gün yeni 1-2 renk eklemem gerekiyor dolayısıyla daha basit bir yönteme ihtiyacım olacak eğer mümkünse
Cevapla
Çözüldü #6
Sn:clodj_e
Sizin istediğiniz balık ama biz size balık tutmasını öğretiyoruz eğer balığı biz verirsek bir gün karnınızı doyurursunuz kendiniz tutmayı öğrenirseniz hiç aç kalmassınız.
OĞULCAN & OLCAYTUĞ

Oğulcan Excel Web Sitesi
Excel İle Programlama
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da
Task