Excel Forum
ALTIN ÜYELİK Hakkında Bilgi


Geri Git   Excel Forum > EXCEL-Soruları > Diğer Excel Soruları
Atatürk
Şifremi Unuttum

DUYURU SİSTEMİ / REKLAM PANOSU

Diğer Excel Soruları Yukarıdaki başlıklara uymayan Excel sorularınızı bu bölüme gönderebilirsiniz.
Dosya ekleyebilirsiniz

Özel Arama


Yanıtla
 
Paylaş Konu Araçları Görünüm Modları
Eski 17-12-2017, 19:13   #1
memoweb
 
Giriş: 09/10/2015
Şehir: istanbul
Mesaj: 9
Excel Vers. ve Dili:
öğrenci
Varsayılan Satırdaki bir kısmı otomatik numaralandırma

Merhabalar, elimde bir kod var ve belli bir yerini alt alta sürekli numaralandırmam gerek örneğin;

Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
TAG POS=249 TYPE=BUTTON ATTR=TXT:Davet<SP>Et
WAIT SECONDS=1
TAG POS=250 TYPE=BUTTON ATTR=TXT:Davet<SP>Et
WAIT SECONDS=1
TAG POS=251 TYPE=BUTTON ATTR=TXT:Davet<SP>Et
WAIT SECONDS=1
her yeri aynı kalacak sadece POS= yazısından sonra numaraları değişecek böyle 1000e kadar gitmesi gerek bunu yapabilmem mümkün mü acaba

Bu mesaj en son " 17-12-2017 " tarihinde saat 23:45 itibariyle memoweb tarafından düzenlenmiştir....
memoweb Çevrimdışı   Alıntı Yaparak Cevapla
Eski 17-12-2017, 19:31   #2
TanerSaydam
 
Giriş: 13/10/2017
Şehir: Kayseri
Mesaj: 155
Excel Vers. ve Dili:
2003-tr
Varsayılan

Bunu makro kodu ile yapacaksanız eğer şöyle bir mantık yürütebiliriz;

A sütunun da dediğiniz numara alanı olduğunu varsayarsak, B sütunu doluysa, A sütununa bir önceki numaranın +1 fazlasını ver. Örnek kod aşağıda. Daha ayrıntılı bir şey için örnek excel dosyası koymalısınız.

Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
Dim ilk As Integer, Son As Integer
ilk = 4
Son = 1000

For v = ilk To Son
If Not Range("B" & ilk).Value > "" Then GoTo atla:
If Range("A" & ilk - 1) < 0 Then
Range("A" & ilk - 1) = 0
End If
Range("A" & ilk) = Range("A" & ilk - 1) + 1
atla:
ilk = ilk + 1
Next v
Tabii, sayfaya veri eklendikçe otomatik rakam artırsın diyorsanız o zaman bu kodlar sayfanın Change özelliğine yazılır.

Bu mesaj en son " 17-12-2017 " tarihinde saat 19:37 itibariyle TanerSaydam tarafından düzenlenmiştir....
TanerSaydam Çevrimdışı   Alıntı Yaparak Cevapla
Eski 17-12-2017, 19:39   #3
memoweb
 
Giriş: 09/10/2015
Şehir: istanbul
Mesaj: 9
Excel Vers. ve Dili:
öğrenci
Varsayılan

Alıntı:
TanerSaydam tarafından gönderildi Mesajı Görüntüle
Bunu makro kodu ile yapacaksanız eğer şöyle bir mantık yürütebiliriz;

A sütunun da dediğiniz numara alanı olduğunu varsayarsak, B sütunu doluysa, A sütununa bir önceki numaranın +1 fazlasını ver. Örnek kod aşağıda. Daha ayrıntılı bir şey için örnek excel dosyası koymalısınız.

Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
Dim ilk As Integer, Son As Integer
ilk = 4
Son = 1000

For v = ilk To Son
If Not Range("D" & ilk).Value > "" Then GoTo atla:
If Range("C" & ilk - 1) < 0 Then
Range("C" & ilk - 1) = 0
End If
Range("C" & ilk) = Range("C" & ilk - 1) + 1
atla:
ilk = ilk + 1
Next v
Tabii, sayfaya veri eklendikçe otomatik rakam artırsın diyorsanız o zaman bu kodlar sayfanın Change özelliğine yazılır.
Öncelikle yanıtınız için teşekkürler hocam ancak acemiyim tam anlamadım ne demek istediğinizi maalesef, şu sayfayı aç şunu şöyle yap, CTRL+H gibi yönlendirebilirseniz çok sevinirim

hepsi bir satır bunların hocam alt alta yani örneğin;

satır1 TAG POS=249 TYPE=BUTTON ATTR=TXTavet<SP>Et
satır2 WAIT SECONDS=1
memoweb Çevrimdışı   Alıntı Yaparak Cevapla
Eski 17-12-2017, 19:55   #4
TanerSaydam
 
Giriş: 13/10/2017
Şehir: Kayseri
Mesaj: 155
Excel Vers. ve Dili:
2003-tr
Varsayılan

Peki bunlar aynı hücrede mi? Yani biraz daha açıklarsanız öyle kod yazıp, tarif edeyim. Yani A hücresinde ne var, B hücresinde ne var. Hangi değere göre rakam artacak. Yani B doluysa A rakamı +1 olmalı mı diyorsunuz ?
TanerSaydam Çevrimdışı   Alıntı Yaparak Cevapla
Eski 17-12-2017, 20:28   #5
memoweb
 
Giriş: 09/10/2015
Şehir: istanbul
Mesaj: 9
Excel Vers. ve Dili:
öğrenci
Varsayılan

Alıntı:
TanerSaydam tarafından gönderildi Mesajı Görüntüle
Peki bunlar aynı hücrede mi? Yani biraz daha açıklarsanız öyle kod yazıp, tarif edeyim. Yani A hücresinde ne var, B hücresinde ne var. Hangi değere göre rakam artacak. Yani B doluysa A rakamı +1 olmalı mı diyorsunuz ?
Hiç önemi yok hocam, ben bu satırları excelde kullanmayacağım zaten web için bir işte gerekli daha açıklayıcı yazmam gerekirse .txt belgesine atacağım diyeyim görsel: https://i.hizliresim.com/nJZ0EV.png dediğim gibi heryeri aynı kalacak sadece TAG POS= dan sonra olan sayıları artarak gidecek.

Bu mesaj en son " 17-12-2017 " tarihinde saat 20:36 itibariyle memoweb tarafından düzenlenmiştir....
memoweb Çevrimdışı   Alıntı Yaparak Cevapla
Eski 17-12-2017, 21:46   #6
TanerSaydam
 
Giriş: 13/10/2017
Şehir: Kayseri
Mesaj: 155
Excel Vers. ve Dili:
2003-tr
Varsayılan

İlk ve son numaralara kaçtan kaça kadar numaralandırmasını istiyorsan yaz ve Numaralandır tuşuna bas.

Dosya:
https://www.dosyaupload.com/dxQL


Kodları:
Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
Private Sub CommandButton1_Click()
ilk = Range("D3").Value
son = Range("D4").Value

s1 = 1
s2 = 2
sson = son - ilk

Range("A:A").ClearContents


If Range("D3") > Range("D4") Then
MsgBox ("İlk değer son değerden küçük olamaz!")
End If
For v = s1 To sson
Range("A" & s1).Value = "TAG POS=" & ilk & " " & "TYPE=BUTTON ATTR=TXTavet<SP>Et"
Range("A" & s2).Value = "WAIT SECONDS=1"
ilk = ilk + 1
s1 = s1 + 2
s2 = s2 + 2
Next v

End Sub
TanerSaydam Çevrimdışı   Alıntı Yaparak Cevapla
Eski 17-12-2017, 23:20   #7
memoweb
 
Giriş: 09/10/2015
Şehir: istanbul
Mesaj: 9
Excel Vers. ve Dili:
öğrenci
Varsayılan

Alıntı:
TanerSaydam tarafından gönderildi Mesajı Görüntüle
İlk ve son numaralara kaçtan kaça kadar numaralandırmasını istiyorsan yaz ve Numaralandır tuşuna bas.

[/code]

Hocam bu tam istediğim gibi, size çok teşekür ederim çok kral adamsınız.

sizin verdiğiniz kodu nasıl kullanacağım, txte world olarak mı açacağım

Bu mesaj en son " 18-12-2017 " tarihinde saat 10:20 itibariyle memoweb tarafından düzenlenmiştir....
memoweb Çevrimdışı   Alıntı Yaparak Cevapla
Eski 18-12-2017, 08:21   #8
asri
Altın Üye
 
Giriş: 24/04/2005
Şehir: Istanbul
Mesaj: 2,545
Excel Vers. ve Dili:
Office 2016 TR 64 Bit
Varsayılan

Alternatif makrosuz;

Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
A1  e   TAG POS=    yazın
B1  e   249    yazın
C1  e   TYPE=BUTTON ATTR=TXT:Davet<SP>Et   yazın
D1  e   =A1&B1&C1   formülünü yazın

A2  ye   WAIT SECONDS=A   yazın
D2  ye   =A2   yazın
Şimdi, 1. ve 2. satırı seçip kenarındaki küçük kutucuktan tutup aşağı doğru çekin istediğiniz kadar çoğaltın.

D kolonu seçip kopyala / özel yapıştır / değerler yapın.
D kolonu seçip ctrl+h ile bul değiştir yapın ve bul'a =A değiştire =1 yapın. Tümünü değiştirin.

Uzunmuş gibi duruyor ancak bu yöntemi bu tür bir çok işlemde kullanabilirsiniz.
__________________
www.asriakdeniz.com
asri Çevrimdışı   Alıntı Yaparak Cevapla
Eski 18-12-2017, 10:20   #9
memoweb
 
Giriş: 09/10/2015
Şehir: istanbul
Mesaj: 9
Excel Vers. ve Dili:
öğrenci
Varsayılan

Alıntı:
asri tarafından gönderildi Mesajı Görüntüle
Alternatif makrosuz;

Teşekkürler hocam, alttaki kodu nasıl açacağım acaba nereye yapıştırmam gerek

Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
Private Sub CommandButton1_Click()
ilk = Range("D3").Value
son = Range("D4").Value

s1 = 1
s2 = 2
sson = son - ilk

Range("A:A").ClearContents


If Range("D3") > Range("D4") Then
MsgBox ("İlk değer son değerden küçük olamaz!")
End If
For v = s1 To sson
Range("A" & s1).Value = "TAG POS=" & ilk & " " & "TYPE=BUTTON ATTR=TXTavet<SP>Et"
Range("A" & s2).Value = "WAIT SECONDS=1"
ilk = ilk + 1
s1 = s1 + 2
s2 = s2 + 2
Next v

End Sub

Bu mesaj en son " 18-12-2017 " tarihinde saat 10:29 itibariyle memoweb tarafından düzenlenmiştir....
memoweb Çevrimdışı   Alıntı Yaparak Cevapla
Yanıtla


Konu Araçları
Görünüm Modları

Gönderme Kuralları
You may not post new threads
You may not post replies
You may not post attachments
You may not edit your posts

BB code is Açık
SimgelerAçık
[IMG] kodu Açık
HTML kodu Kapalı


Saat 21:49


Bu forum Elit NET - www.elitnet.com.tr tarafından sunulmaktadır.

Excel Eğitimi - Mobil Uygulama - Çorlu - Çorlu Web Tasarım -- Beylikdüzü mali müşavir - Lingerie - Dyeing Machine - Karton Bardak- Karton Bardak- Çorlu Dil Konuşma Terapisti- Çorlu Dil Konuşma Terapisti- Çorlu Konuşma Terapisti- Çorlu Konuşma Terapisti- Çorlu Özel Eğitim- Site Yönetimi- Pronet Tekirdağ- Çorlu Kamera- Pronet Edirne- Pronet Çorlu- Çorlu Araç Takip- Çorlu Su Arıtma- Gebze Emlak- Rampa- Rotary- Çorlu İnternet Sitesi- Çorlu Sürücü Kursu- Çorlu Sürücü Kursu- Şişli Avukat- Edirne Serbest Muhasebeci- Çorlu Etüt- İstanbul Botanik- Çorlu Sigorta- Kağıt Bardak- Kaplan Tekstil- Çorlu Perde- Çorlu Havuz- Makina- Danışmazlar-
Powered by vBulletin Version 3.7.2
Copyright ©2000 - 2018, Jelsoft Enterprises Ltd.
Advertisement System V2.6 By   Branden