Excel Tablodan Değer Güncelleme Yardımı
Tarih
16/09/2010 16:34
Konu Sahibi
clodj_e
Yorumlar
7
Okunma
2901
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.160
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.160
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
  A hücresindeki değer B hücresindeki değerden küçükse c hücresine bu formülü uygula simendifer 3 97 28/11/2016, 14:51 simendifer
  Data Filtreleyerek, Excel'e Export Etme - Yardım - Rıdvan Üçok 2 109 28/11/2016, 14:34 atoz112
  VBA Excel'de Instr ile belirli hücre değerleri haricindekiler varsa işlem yapma balkan85 7 400 07/10/2016, 14:56 balkan85
  Excel Filtreleme sonucu çıkan satır sayısı Ahmet Karaman 6 360 12/09/2016, 11:00 atoz112
  Excel dosyamda takıldığım noktaya yardım lütfen aslanbey41 6 426 01/08/2016, 18:59 atoz112


Türkçe Çeviri: MCTR, Forum Yazılımı: MyBB, © 2002-2016 MyBB Group.
DMCA.com Protection Status
© Desing by XSTYLED| Develops by ozanakkaya