Araç Servis Takip Programı (AST-v.2) foruma eklenmiştir. 
http://www.excelce.net/forum/index.php?topic=1656.0

Gönderen Konu: [Çözüldü] KOD KONTROLU  (Okunma sayısı 9388 defa)

0 Üye ve 1 Ziyaretçi konuyu incelemekte.

Çevrimdışı voleclub

  • Excelce Çavuş
  • ***
  • İleti: 158
  • Puan +0/-0
  • Cinsiyet: Bay
  • Excel'den Daha Fazlası!..
  • Ad Soyad: mahmut özdemir
  • Mesleğiniz: öğretmen
[Çözüldü] KOD KONTROLU
« : 06 Nisan 2010, 17:24:24 »
SELAM
1-Liste Kutusuna Veriler Sayfasının H sütundan veri aldım.J1 Hücresine yönlendirdim. İndeksi J2 hücresine koydum. Modüle Şu Kodu Yazdım

Sub Açılan1_Değiştir()
Sheets(Range("Veriler!$J$2").Value).Select
End Sub

Liste Kutusunda Ki Verileri Tıklayınca, Tıkladığım Sayfaya Neden gitmiyor

2-Verilerini H sütununa sayfaların isimlerini yazdıran makroyu nasıl yazarım
teşekkürler


[Forum yazılım güncelleme esnasında sorun oluştuğundan eklendi silinmiştir.]
« Son Düzenleme: 13 Nisan 2010, 13:21:30 Gönderen: Bülent Öztürk »

Çevrimdışı Bülent Öztürk

  • Excelce.Net Yönetici
  • *
  • İleti: 1411
  • Puan +19/-0
  • Cinsiyet: Bay
  • Türkçe Konuşup Excelce Yazıyoruz...
    • Bülent Öztürk
  • Ad Soyad: Bülent Öztürk
  • Doğum Yılınız: 1976
  • İl / İlçe: İstanbul / Çorlu
  • İşletim Sisteminiz: Win.10
  • Mesleğiniz: Bilgi Teknolojileri
  • Office Versiyonunuz: 2016
Ynt: KOD KONTROLU
« Yanıtla #1 : 06 Nisan 2010, 17:39:39 »
Merhaba.

Kullandığınız nesne adı Açılan2.

Dolayısıyla kodları şu şekilde değiştirmeniz gerekir;

Sub Açılan2_Değiştir()
(Ücretli program talepleriniz için iletişime geçebilirsiniz, excelvbprogram@gmail.com)

Çevrimdışı Orion1

  • Excelce Teğmen
  • ****
  • İleti: 351
  • Puan +10/-0
  • Cinsiyet: Bay
  • Excel'den Daha Fazlası!..
  • Ad Soyad: Evren Gizlen
Ynt: KOD KONTROLU
« Yanıtla #2 : 06 Nisan 2010, 17:42:33 »
8)
1)açılan kutunuza sağ tıklayıp kodları içine yazınız.
2) Sub sayfa_isimleri()
Dim sh As Worksheet, sat As Integer
Sheets("Veriler").Range("H3:H65536").ClearContents
sat = 3
For Each sh In Worksheets
    Sheets("Veriler").Cells(sat, "H").Value = sh.Name
    sat = sat + 1
Next
End Sub

Çevrimdışı voleclub

  • Excelce Çavuş
  • ***
  • İleti: 158
  • Puan +0/-0
  • Cinsiyet: Bay
  • Excel'den Daha Fazlası!..
  • Ad Soyad: mahmut özdemir
  • Mesleğiniz: öğretmen
Ynt: KOD KONTROLU
« Yanıtla #3 : 06 Nisan 2010, 17:50:49 »
sag tıkladıktan sonra nereye yapıştıracağım kod penceresine değil demi

Çevrimdışı voleclub

  • Excelce Çavuş
  • ***
  • İleti: 158
  • Puan +0/-0
  • Cinsiyet: Bay
  • Excel'den Daha Fazlası!..
  • Ad Soyad: mahmut özdemir
  • Mesleğiniz: öğretmen
Ynt: KOD KONTROLU
« Yanıtla #4 : 06 Nisan 2010, 17:55:41 »
sag tıkladıktan sonra yazdığımız o makroyu atadım oldu galiba

Çevrimdışı voleclub

  • Excelce Çavuş
  • ***
  • İleti: 158
  • Puan +0/-0
  • Cinsiyet: Bay
  • Excel'den Daha Fazlası!..
  • Ad Soyad: mahmut özdemir
  • Mesleğiniz: öğretmen
Ynt: KOD KONTROLU
« Yanıtla #5 : 06 Nisan 2010, 17:57:41 »
abi her gecen gün sizden bir şey öğreniyoruz teşekkürler iyi çalışmalar

Çevrimdışı Orion1

  • Excelce Teğmen
  • ****
  • İleti: 351
  • Puan +10/-0
  • Cinsiyet: Bay
  • Excel'den Daha Fazlası!..
  • Ad Soyad: Evren Gizlen
Ynt: KOD KONTROLU
« Yanıtla #6 : 06 Nisan 2010, 18:32:12 »
abi her gecen gün sizden bir şey öğreniyoruz teşekkürler iyi çalışmalar
Rica ederim.
İyi çalışmalar. 8)