Excel Tablodan Değer Güncelleme Yardımı
Tarih
16/09/2010 16:34
Konu Sahibi
clodj_e
Yorumlar
7
Okunma
3015
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ü 
Sponsor Reklam
Ç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ü 
Sponsor Reklam
ç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ü 
Sponsor Reklam
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
  yardım excel açılış ve kapanışda uyarı rmznaydemr 5 324 13/05/2017, 12:19 atoz112
  Excel'de Ctrl+ınsert Ve Shift+ınsert Tuşlarıyla Kopyala Ve Yapıştırı Engelle husem 2 89 22/04/2017, 13:37 husem
  Excel Çalıştığında İstenilen Sayfanın Açılması ozkovlu29 3 136 22/03/2017, 08:19 ozkovlu29
  Excel'de Makro Ya Da Modülde Düzenleme Yapma mehami 2 130 24/02/2017, 10:57 mehami
  A hücresindeki değer B hücresindeki değerden küçükse c hücresine bu formülü uygula simendifer 6 562 19/02/2017, 10:51 atoz112


Türkçe Çeviri: MCTR, Yazılım: MyBB, © 2002-2017 MyBB Group.
DMCA.com Protection Status