2 HÜcreye YazacaĞimiz 2 Rakami Tek HÜcreye Yazarak Pratİk İŞlem

[tekocan]

2 HÜCREYE YAZACAĞIMIZ 2 RAKAMI TEK HÜCREYE YAZARAK DİĞER HÜCREYE OTOMATİK GEÇİŞ YAPMASINI SAĞLAYABİLİRMİYİZ.
ÖRNEKTEKİ DOSYAYA FORMÜLÜ YAZARSANIZ.MAKBULE GEÇER.ÇÜNKÜ KOD YAZMAKTAN PEK ANLAMIYORUM (NEREYE YAZACAĞIMI BİLMİYORUM.)TEŞEKKÜR EDERİM.:rollOSYA EKLEMEYİ UNUTTUM ŞİMDİ EKLİYORUM.

 

[tekocan]

2 HÜcreye YazacaĞimiz 2 Rakami Tek HÜcreye Yazarak DİĞer HÜcreye Otomatİk GeÇİŞ Yapmasini SaĞlayabİlİrmİyİz.
Örnektekİ Dosyaya FormÜlÜ Yazarsaniz.makbule GeÇer.ÇÜnkÜ Kod Yazmaktan Pek Anlamiyorum (nereye YazacaĞimi Bİlmİyorum.)teŞekkÜr Ederİm.dosya Eklemeyİ Unuttum Şİmdİ Eklİyorum.

--------------------------------------------------------------------------------

 

[Orion1]

Ekli dosyayı incelyiniz.
Formülle böyle olabilir.

 

[tekocan]

Tablonun Yapisini Bozmadan Yapmamiz Gerekİyor.axess BÖlÜmÜne Fazladan HÜcre EkledİĞİnİz İÇİn Olmadi.

 

[Ali]

Sayfanızın sekmesini sağ tuş ile tıklayıp kod görüntüle deyip açılan VBA penceresinin içine aşağıdaki kodları yazarak deneyiniz.

Dim basla
Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If Intersect(Target, [G8:G65536]) Is Nothing Then Exit Sub
If Target = 0 Then Exit Sub
If basla = Target Then Exit Sub
If Target.Column = 7 Then
basla = Target - 6
Target = basla
Target.Offset(0, -1) = 6
End If
End Sub

 

[Orion1]

Tablonun Yapisini Bozmadan Yapmamiz Gerekİyor.axess BÖlÜmÜne Fazladan HÜcre EkledİĞİnİz İÇİn Olmadi.

O zaman işin içine VBA giriyor.
Ekli dosyayı incelyiniz.

Dim adrs As String

Private Sub Worksheet_Change(ByVal Target As Range)
adrs = Target.Address
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Intersect(Target, [G8:G65536]) Is Nothing Then Exit Sub
On Error GoTo hata
If adrs = "" Then Exit Sub
Range(adrs).Value = Range(adrs).Value - 6
Range(adrs).Offset(0, -1) = 6
adrs = ""
hata:
End Sub

 

[ofbalki]

Sayfanızın sekmesini sağ tuş ile tıklayıp kod görüntüle deyip açılan VBA penceresinin içine aşağıdaki kodları yazarak deneyiniz.

Dim basla
Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If Intersect(Target, [G8:G65536]) Is Nothing Then Exit Sub
If Target = 0 Then Exit Sub
If basla = Target Then Exit Sub
If Target.Column = 7 Then
basla = Target - 6
Target = basla
Target.Offset(0, -1) = 6
End If
End Sub

Sayın Ali kardeşimin kodlamasında küçük bir değişiklik yaptım. Sanırım işinize yarar.
Orion2 nin programı da çok nefis.
herkesin ellerine sağlık...

 

[tekocan]

Alİ Bey Sorun ÇÖzÜldÜ.
Sİze Ne Kadar TeŞekkÜr Etsem Azdir.benİ Çok Mutlu Ettİnİz
Sayenİzde Kod Gİrmeyİde ÖĞrendİm.dİĞer ArkadaŞlarada İlgİlerİ İÇİn TeŞekkÜrlerİmİ Bİr BorÇ Bİlİrİm.
HoŞÇakalin.