Alt Satira 1 Fazlasiyla GeÇme

[turkerdundar]

SLM akrdaşlar;
A234
A235
A236

böyle olsun istiyorum alt alta sütunlar tıkladıkca 1 fazlasını yazsın
ama önündeki har değişmesinn

şimdiden teşekkürler

 

[Recep İpek]

Anladığım kadarıyla yapmış olduğum aşağıdaki kodları, sayfanın VBE bölümüne kopyalayarak kullanabilirsiniz.

A kolonundaki dolu hücreden sonraki boş hücreye çift tıklarsanız bir önceki verinin bir fazlasını tıkladığınız hücreye yazar.

Not : Sayıların 3 hane olduğu varsayılmıştır.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
On Error Resume Next
If Intersect(Target, [A:A]) Is Nothing Then Exit Sub
If Target.Offset(-1, 0).Value <> "" And Target = "" Then
Target = "A" & Right(Target.Offset(-1, 0).Value, 3) + 1
End If
End Sub

 

[AS3434]

Sn. turkerdundar
Ne demek istediğinizi bir anlayabilsek....
Bu verileri formül içinde mi kullanıyorsunuz, yoksa sıra numarası mı?
Formül içinde ise
$A234
Şeklinde yazın. Sıra no gibi ise, 2 hücreyi seçin sağ alt köşeden + işaretini tutup aşağı doğru sürükleyin.

 

[turkerdundar]

teşekkürler bir örnek lütfen

slm kardeşim tam istediğim gibi biraz acemiyim bir küçük örnek lütfen
teşekkürler

 

[Recep İpek]

Örnek dosya ektedir.

 

[turkerdundar]

TeŞekkÜrlerrrrrrrr

Anladığım kadarıyla yapmış olduğum aşağıdaki kodları, sayfanın VBE bölümüne kopyalayarak kullanabilirsiniz.

A kolonundaki dolu hücreden sonraki boş hücreye çift tıklarsanız bir önceki verinin bir fazlasını tıkladığınız hücreye yazar.

Not : Sayıların 3 hane olduğu varsayılmıştır.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
On Error Resume Next
If Intersect(Target, [A:A]) Is Nothing Then Exit Sub
If Target.Offset(-1, 0).Value <> "" And Target = "" Then
Target = "A" & Right(Target.Offset(-1, 0).Value, 3) + 1
End If
End Sub

SLM
KARDEŞİM TAM İSTEDİĞİM GİBİ
AMA BİR İKİ KÜÇÜK SIKINTI VAR
1-HARF DEĞİŞEBİLMELİ
2-RKAM EN AZ 4 HANELİ OLMALI

TEŞEKKÜRLER
İYİKİ SİZLER VARSINIZZZZZZZZZ

 

[Recep İpek]

Dosyada küçük değişiklikler yaptım.

Harfi K1 hücresinden almaktadır.Siz kendinize göre uyarlayınız.

Ayrıca sayı hanesi için ayrıca birşey yapmanıza gerek yok.Otomatik kendisi ayarlamaktadır.

 

[turkerdundar]

TeŞekkÜrler

Dosyada küçük değişiklikler yaptım.

Harfi K1 hücresinden almaktadır.Siz kendinize göre uyarlayınız.

Ayrıca sayı hanesi için ayrıca birşey yapmanıza gerek yok.Otomatik kendisi ayarlamaktadır.

SÜPER BİDE
RAKAM HANESİ 1234 4 HANELİ OLABİLİRMİ

999 DAN SONRA

1000
1001 LERDE OLACAK

SAĞOL KARDEŞİM

 

[turkerdundar]

Tatamam Tamam

TeŞekÜrler Şİmdİ GÖrdÜm OlmuŞ
Allah Razİ Olsun KardeŞİm

Saygilar