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

Derecelendirme: 0/5 - 0 oy

clodj_e

Üye
11174
 40
 2
 9
 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.


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

Olcay

Üye
15071
 28
 0
 19
 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.

ogulcan92

Aktif Üye
6336
 54
 154
 1.159
 06/05/2009
480
 İ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



clodj_e

Üye
11174
 40
 2
 9
 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.

clodj_e

Üye
11174
 40
 2
 9
 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.

ogulcan92

Aktif Üye
6336
 54
 154
 1.159
 06/05/2009
480
 İ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.




Konuyu Okuyanlar: 1 Ziyaretçi

Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Son Yorum
Çözüldü Excel Yeni Sheet Açma ertus35 3 263 01/05/2019, 08:54
Son Yorum: haliliyas
Çözüldü excel programını accese çevirme ultramir 5 2.656 07/04/2019, 19:28
Son Yorum: Emre kırkkılıc
Çözüldü A hücresindeki değer B hücresindeki değerden küçükse c hücresine bu formülü uygula simendifer 8 3.535 12/11/2018, 13:49
Son Yorum: gucluguler
Çözüldü Php Mysqli Aynı Anda İki Farklı Tablo Güncelleme serkandiker 4 400 25/06/2018, 11:25
Son Yorum: ozguryasin
Çözüldü 2 excel dosyası arasında kritere göre bağ yapıştırma mehmetdemiral 19 5.827 17/04/2018, 12:47
Son Yorum: Subco

Türkçe Çeviri: MCTR, Yazılım: MyBB, © 2002-2019 MyBB Group.