Vba kod açıklaması

[emregnlts]

Merhabalar,

Aşağıda yazacağım kodu ne anlama geldiğini açıklayabilir misiniz ?
şimdiden teşekkür ederim.

Private Sub ComboBox1_Change()
Application.ScreenUpdating = False
Set S = Sheets("Diyot")
Set v = Sheets("Diyot Ölçümü")
Dim vy As Boolean
vy = False
Dim bh As Integer
For t = 2 To 1000
If S.Cells(t, "A") = ComboBox1.Text Then
bh = S.Cells(t, "A").MergeArea.Count

ss = v.Range("A" & Rows.Count).End(3).Row
sb = v.Cells(ss, "A").MergeArea.Count
v.Range(v.Cells(ss + sb, "A"), v.Cells(ss + sb + bh - 1, "A")).Merge
With v.Range(v.Cells(ss + sb, "A"), v.Cells(ss + sb + bh - 1, "A"))
.Merge
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlCenter
End With
sn = v.Cells(ss, "A").Value
If v.Cells(ss, "A").Value = "NO" Then
v.Cells(ss + sb, "A").Value = 1
Else
v.Cells(ss + sb, "A").Value = sn + 1
End If

S.Range(S.Cells(t, "A"), S.Cells(t + bh - 1, "D")).Copy v.Cells(ss + sb, "B")


ssr = v.Range("A" & Rows.Count).End(3).Row
sbr = v.Cells(ssr, "A").MergeArea.Count
v.Range(v.Cells(ss + sb, "A"), v.Cells(ssr + sbr - 1, "P")).Borders.LineStyle = xlContinuous
v.Columns.AutoFit
vy = True
Exit For
End If
Next
Application.ScreenUpdating = True
If vy = False Then MsgBox "Veri bulunamadı", vbInformation, "wolf"
End Sub

 

[Erdem Akdemir]

Merhaba,

Bilmediğiniz bir şeyi neden kullanmak istiyorsunuz.
Ne istediğinizi paylaşırsanız ona göre kod düzenlenir.
Sorunuz iyi gelir diye ecza dolabından herhangi bir ilaç kullanmaya benzemiş.

 

[emregnlts]

şundan dolayı bunu yapmak istedim. Şu an bu kod benim sistemimde çalışıyor fakat belli aralık içerisinde veri taşıyor. ben yeni bir sütun eklediğimde, eklediğim sütun için veri getirmiyor. tam olarak ne anlama geldiğini bilirsem. eklediğim sütunun nereden aralığının düzenlenmesini kendim bulurum diye öğrenmek istedim. şunu da sorabilirdim; uygulanan kod içerisine çalışan dosya da bir Sütun ekliyorum fakat sütun işlem görmüyor nereyi etkiliyor. yardımcı olabilirmisiniz diye de sorardım ama bu şekilde öğrenmiş olmazdim...

 

[Erdem Akdemir]

Emre bey ,

İstediğinizi gösteren örnek dosya ekleyebilir misiniz.
Bu şekilde cevap almanız zor olur, ayrıca ilk mesajınızdan sorunuzun anlamını çıkarmak imkansız.

 

[emregnlts]

Ekli dosyayı görüntüle Derating Tablo Oluşturma.xlsm

Hocam şimdi Dİyot dosyası ve Dİyot Ölçümü dosyası arasında taşıma işlemi yapıyorum. "A" hücresi ile "E" hücresi arasında gerçekleşiyor. Ben bunları arasına her hangi bir Sütun eklediğimde E hücresinde yazması gereken veriyi yazmıyor. bu konuda yardımcı olabilirmisin

 

[emregnlts]

kuvari Bey bir de rica etsem açıklayabilir misiniz ?

 

[emregnlts]

Cevap verecek kimse yok mu ?