verileri çağırıp düzeltme yapma

[gokhanbek]

merhaba arkadaşlar

yapmak istediğim şey şu
verileri aşağıdaki kodlarla aktarıyorum.
aktardığım kodu sıra numarası ile çağırmak ve değiştirmek istiyorum
bunu nasıl yapabilirim formullu hücreyi değitirmeden

örnek dosya ekte


Sub DataAktar()
Dim s1 As Worksheet, son As Long
Set s1 = Sheets("1")
son = s1.[B65536].End(3).Row + 1
s1.Range("A" & son).Value = son - 1
s1.Range("B" & son).Value = Range("B1").Value
s1.Range("C" & son).Value = Range("B2").Value
s1.Range("D" & son).Value = Range("B3").Value
s1.Range("E" & son).Value = Range("B4").Value
s1.Range("F" & son).Value = Range("B5").Value
s1.Range("G" & son).Value = Range("B6").Value
s1.Range("H" & son).Value = Range("B7").Value
s1.Range("I" & son).Value = Range("B8").Value
s1.Range("J" & son).Value = Range("B9").Value
s1.Range("K" & son).Value = Range("B10").Value
s1.Range("L" & son).Value = Range("B11").Value
s1.Range("M" & son).Value = Range("B12").Value
s1.Range("N" & son).Value = Range("B13").Value
s1.Range("O" & son).Value = Range("B14").Value
Range("B2").ClearContents:
Range("B4:B8").ClearContents
s1.Columns("A:S").EntireColumn.AutoFit
End Sub

 

[Korhan Ayhan]

Selamlar,

Dosyanızda kodlarınızı şifrelemişsiniz.

 

[gokhanbek]

özür dilerim
şifre: 1

 

[İhsan Tank]

özür dilerim
şifre: 1

arkadşaım senin dosyanda listbox'tan verileri çağırıp herhangi bir veriyi değiştirdikten sonra değiştire basarsanız değiştiriyor

 

[gokhanbek]

o şekilde yanlış hesaplamar çıkıyor.
benim istediğim data saysasına veriyi carıp orada düzelttikten sonra sonra onun üzerine kaydetmesi

örneğin 046 nolu veriyi carıp düzeltmek.

 

[gokhanbek]

galiba tam kendimi ifade edemedin

 

[gokhanbek]

????????????

nicin cevap alamıyorum

 

[Korhan Ayhan]

Selamlar,

Çalışmanızın detaylarını siz biliyorsunuz. Hangi hücreye neyi nasıl çağırmak ve düzeltmek istiyorsunuz? Sorunuzda hiçbir açıklama yok, doğal olarakta kimse yanıt vermek istemiyor.

 

[gokhanbek]

kohan bey anlatmak istiyorum ama
ama bir yerden başlayamadık ki
yapmak istediğim şey şu

data sayfasında ki girilmiş verileri "1" sayfasına aktarmak bunu yaptım
1 sayfasındaki kaydetmiş olduğum veride bir yanlışlık olursa o veriyi data sayfasına çağırıp değiştirip aynı yere kaydetmek istiyorum

sayfa 1 de yapılan otomatik kayıt numaralarını örneyin 5inci satırı data sayfasına alıp değiştirip tekrar 5inci satıra kaydetmek

inşallah kendimi anlata bilmişimdir.

 

[Korhan Ayhan]

Selamlar,

Veriyi çağırma işlemini sayfa üzerindemi yapacaksınız, yoksa form üzerindemi?

Eğer form üzerinde yapılacaksa zaten DEĞİŞTİR isimli bir buton formunuz üzerinde var. Bundaki makroda problem varsa bu kodmu düzeltilecek?

 

[gokhanbek]

Sayfa ürerine lütfen

 

[Korhan Ayhan]

Selamlar,

Bu düzende aynı sayfa üzerinden düzeltme işlemini yapmanız zor görünüyor. Çünkü sayfanın altında çalışan kodlarda var. Düzeltme işlemini başka bir sayfadan yapsanız sizin için problem olur mu?

 

[gokhanbek]

olmaz olurmu
veri çağrılıp düzelecek demi

 

[gokhanbek]

nezaman yapa bilirsiniz.