Konu Araçları | Seçenekler: | Gösterim Stili
Tarih
16/09/2010 16:34
Konu Sahibi
clodj_e
Yorumlar
7
Okunma
3336
Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 5
  • 4
  • 3
  • 2
  • 1

Derecelendirme: 0/5 - 0 oy

clodj_e

Üye
Kullanici Avatari
Üye
9
2
05/11/2009
0
Bursa
Ofis 2007
01/02/2011,15:44
Çözüldü 
İ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)


clodj_e, 05-11-2009 tarihinden beri AccessTr.neT üyesidir.
Cevapla

Olcay

Üye
Kullanici Avatari
Üye
19
0
07/02/2010
0
Belirtilmemiş
Ofis 2003
08/05/2016,17:00
Çözüldü 
Ç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.

Visual Basic Code
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
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


Olcay, 07-02-2010 tarihinden beri AccessTr.neT üyesidir.
Cevapla

ogulcan92

Aktif Üye
Kullanici Avatari
Aktif Üye
1.159
06/05/2009
477
İzmir
Ofis 2003
07/08/2015,11:50
Çözüldü 
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.

Visual Basic Code
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
'&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&& 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


Cevapla

clodj_e

Üye
Kullanici Avatari
Üye
9
2
05/11/2009
0
Bursa
Ofis 2007
01/02/2011,15:44
Çözüldü 
çok teşekkürler
iyi çalışmalar


clodj_e, 05-11-2009 tarihinden beri AccessTr.neT üyesidir.
Cevapla

clodj_e

Üye
Kullanici Avatari
Üye
9
2
05/11/2009
0
Bursa
Ofis 2007
01/02/2011,15:44
Çözüldü 
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


clodj_e, 05-11-2009 tarihinden beri AccessTr.neT üyesidir.
Cevapla

ogulcan92

Aktif Üye
Kullanici Avatari
Aktif Üye
1.159
06/05/2009
477
İzmir
Ofis 2003
07/08/2015,11:50
Çözüldü 
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.


Cevapla


Konuyu Okuyanlar: 1 Ziyaretçi

Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Tarih Son Yorum
Çözüldü Excel Yıllık İzin Tablosu mehmetfetih 2 342 06/08/2017, 09:47 mehmetfetih
Çözüldü Hücredeki Değere Göre Tutarı Eksi Değer Yapmak? derzulya 4 350 29/05/2017, 08:18 derzulya
Çözüldü Excel Veri Çekme Sorunu goksel86 7 682 26/05/2017, 16:14 ozanakkaya
Çözüldü yardım excel açılış ve kapanışda uyarı rmznaydemr 5 654 13/05/2017, 12:19 atoz112
Çözüldü Excel'de Ctrl+ınsert Ve Shift+ınsert Tuşlarıyla Kopyala Ve Yapıştırı Engelle husem 2 365 22/04/2017, 13:37 husem

Türkçe Çeviri: MCTR, Yazılım: MyBB, © 2002-2017 MyBB Group.
Forum use Krzysztof "Supryk" Supryczynski addons.