Bir excel Hücresinde Şarta Bağlı Olarak Rakamları Değiştirme

1 2 3 4
27/03/2024, 03:31

berduş

Yine aynı şeyi yapıyorsunuz
Açıklama yapmadan çözüm istiyorsunuz.
2. Ve 3. Rakamlar ne ile değişecek?
Her zaman sadec ilk 3 rakam aynı sayi ile değişecekse sorun yok ama ilk mesajınızda daha önceden 3. ve 5. Rakamlar varsayalım ki 6 ve 7 ile değişecek demiştiniz, başka bir örneğiniz de ise farklı sıradaki rakamları farklı sayılarla degistirilebileceginden söz etmiştiniz. Bir metin kutusuna girdiğiniz sayıya bakarak hangi sıradaki rakamın hangi rakamla değişeceğini biz nereden bile biliriz!!!
29/03/2024, 00:03

208319

ben bir türlü anlatamadım kusura bakma;
soldan1. örnekte4 yazılı 5 ile değişecek değişiyor sorun yok
soldan2. örnekte1 yazılı 0,3,4,5 rakamlarından biri ile değişecek
soldan3. örnekte4 yazılı 1,2,3,4,5,6,7,8,9 rakamlarından biri ile değişecek
bu yazdığımı esas alın örnek ekte
29/03/2024, 00:50

berduş

1 - sadece soldan ilk 3 hanenin mi değişme ihtimali var? yani hepsinin, birinin yada kombinasyonlarının?
2 - tek düğme mi olacak? düğmeye basınca textboxlara bakılacak ve değer girilip girilmemesine göre işlem yapılacak yoksa 3 düğme olacak ve hangi düğmeye basılırsa ait olduğu değer mi değişecek?
  1. düğmeye basınca textbox1'e bakıp sadece ilk haneleri
  2. düğmeye basınca textbox2'e bakıp sadece ikinci haneleri
  3. düğmeye basınca textbox3'e bakıp sadece üçüncü haneleri değişecek
3 - işlemler A sütunundaki tüm satırlara uygulanıp B sütununa mı yazılacak yoksa her işlem ayrı sütuna mı olacak
  1. düğmeye basınca B sütununa
  2. düğmeye basınca C sütununa
  3. düğmeye basınca D sütununa
29/03/2024, 00:59

208319

A sutununa gerek yok diğer 3 sutun önemli
1düğmeye basınca textbox1'e bakıp sadece ilk haneleri
2düğmeye basınca textbox2'e bakıp sadece ikinci haneleri
3düğmeye basınca textbox3'e bakıp sadece üçüncü haneleri değişecek
tek bir komut düğmesinde verme imkanı varsa daha iyi olur. olmazsa ayrı ayrı verebilirsin asağıdaki gibi
1düğmeye basınca B sütununa
2düğmeye basınca C sütununa
3düğmeye basınca D sütununa
yazdığın gibi bu şekilde
29/03/2024, 02:16

berduş

Düğmenin kodunu aşağıdaki kod ile değiştirip dener misiniz?
3ü tek kodda değişiyor
Dim ws As Worksheet
Set ws = ThisWorkbook.Sheets("Sheet1")

Dim SonStr As Long
Dim DzA As Variant, DzSon As Variant

With ThisWorkbook.Sheets("Sheet1")
SonStr = .Cells(.Rows.Count, "A").End(xlUp).Row
DzA = .Range("A2:A" & SonStr).Value2
dzByt = UBound(DzA)

ReDim DzSon(1 To dzByt, 1 To 3)
For x = 1 To dzByt
DzSon(x, 1) = IIf(IsNumeric(.TextBox1.Text), .TextBox1.Text & Mid(DzA(x, 1), 2), DzA(x, 1))
DzSon(x, 2) = IIf(IsNumeric(.TextBox2.Text), Left(DzA(x, 1), 1) & .TextBox2.Text & Mid(DzA(x, 1), 3), DzA(x, 1))
DzSon(x, 3) = IIf(IsNumeric(.TextBox3.Text), Left(DzA(x, 1), 2) & .TextBox3.Text & Mid(DzA(x, 1), 4), DzA(x, 1))
Next x
.Range("B2").Resize(dzByt, 3) = DzSon
End With
29/03/2024, 22:33

208319

harika olmuş çok teşekkür ederim. ellerine sağlık
1 2 3 4