Üye Girişi
Bağlan Google+ ile Bağlan Facebook ile Bağlan
Yeni Kayıt
Şimdi Ara
D
@dogusburak
onbaşı
"onbaşı": Geleneksel rütbe sistemi koşulları geçerlidir.
Diğer rütbeleri gör

0 takipçi
Özel Mesaj

Onbaşı
11 Mart 2008
Tarihinde Katıldı
Takip Ettikleri
0 üye
Görüntülenme
Toplam: 3 (Bu ay: 0)
Fırsat Ekle
Gönderileri
D
dogusburak (Dogus Burak AKKOYUNLU) · Delphi / C++ /Vb altına konu açtı. 11 yıl

Excel içinde VB ile arama yapıp gizleme

Merhabalar,

Bir excel dosyası içinde hücrede "BÖLGE" kelimesi geçmeyen satırları gizleme istiyorum ancak farklı hatalar alıyorum. Uygulayıp düzeltemediğim ve sanırım en çok yaklaştığım kodlar aşağıdaki gibidir.

1-)
For i = 5 To 1000
if cells(i,4) = "" then exit for

If (InStr(Cells(i, 4), "Bölge") = 0) Then
rows("i:i").select ' ==========> burda sürekli uyarı veriyor. Örneğin rows("5:10") yaparsam çalışıyor ama içeriğini elle girmek gerekiyor. O zamanda bir anlamı kalmıyor.

selection.entirerow.hidden = true

End If
Next i



Yardımcı olabilirseniz sevinirim. İyi günler.
Yanıt Yok Yanıtla Favorilere Ekle 0
D
dogusburak (Dogus Burak AKKOYUNLU) · Delphi / C++ /Vb altına konu açtı. 11 yıl

VB6 da birden çok sayfada sıralama

Merhabalar;

Elimde oldukça fazla sayıda sayfası olan bir excel var ve her sayfa için aşağıdaki kodu yazmak zorunda kalıyorum. Sayfa2.Range("a3:av1000").Sort key1:=Sayfa2.Range("a3"), order1:=xlAscending
Sayfa3.Range("a3:av1000").Sort key1:=Sayfa3.Range("a3"), order1:=xlAscending
Sayfa4.Range("a3:av1000").Sort key1:=Sayfa4.Range("a3"), order1:=xlAscending
.
.

Bir kaç yere bakmama rağmen maalesef çalıştırabildiğim bir kod bulamadım.
Denediğim kodlar ise kısaca;

x= "sayfa"&p
p = 3 to 36
sheets("x").range(........

aldığım hata : subscript out of range
_____________________________


dim x(3 to 36) as string

sayfa.........

aldığım hata : constant expression required


yardımcı olabilirseniz sevinirim. İyi günler
2 Yanıt Yanıtla Favorilere Ekle 0
D
dogusburak (Dogus Burak AKKOYUNLU) · Konu Dışı altına konu açtı. 14 yıl

Emlakçıya apartman aidatı

herkese iyi günler
apartmanımız 9 daireli bir öğrenci apartmanı. Yöneticiside yok fakat bizim bu bölgenin neredeyse tamamına el atmış olan emlakçı kendine göre haftada bir bize göre 2 haftada bir birisini temizliğe yolluyor. bunun yanında 6 aydır apartmanın giriş kapısı bozuk ve yaptırılmadı. ( sadece ben 2 kere yapılacak mı diye sordum her defasında haftaya yanıtını aldım ) Bunun dışında ise apartmanın 2 tane garajı var ve bir tanesi kiraya verilmiş durumda. Bu sırada apartman aidatı 15 lira ve biz hiç birşeye 15 lira veriyoruz. Bunun karşılığında ise makbuz almıyoruz tahmin edebileceğiniz gibi. Ben bu şahsı nereye şikayet edebilirim?
Yanıt Yok Yanıtla Favorilere Ekle 0
D
dogusburak (Dogus Burak AKKOYUNLU) · Network altına konu açtı. 14 yıl

Wireless interneti eşit hızda dağıtma

Herkese merhaba. 4mb internet bağlantım var. Öğrenci apartmanında olduğum için interneti paylaşmak için izin istiyorlar. 2 kişi ile interneti paylaşma konusunda anlaştım. fakat bu kişiler sürekli download açıyor diye düşünüyorum. internet hızım wirelessı kesip kontrol ettiğimde 3800 civarı iken wirelss açınca 1mb e düşüyo ve sürekli böyle. sürekli alt kata yada üst kata çıkmakta işime gelmiyor ve pekte hoş olmaz. acaba bu bilgisayarlar arasında interneti eşit olarak paylaştırmam mümkün müdür? haliyle onların pc sine program falan kuramam. modem kendi evimde ve airties marka. aklımda olan diğer 2 eve 1 er mb internet verip kendime 2mb interneti sağlamak. varsa bir yolu yardımcı olursanız sevinirim
12 Yanıt Yanıtla Favorilere Ekle 0
D
dogusburak (Dogus Burak AKKOYUNLU) · Asus altına konu açtı. 15 yıl

Asus G73JH-A2 mi Asus G73JH-RBBX05 mi

herkese selamlar benim öğrenmek istediğim bu 2 laptop arasındaki fark aradaki $300 farka değer mi?
özellikleri ile ilgili linkler
Asus G73JH-A2>>
http://reviews.cnet.com/laptops/asus-g73jh-a2-core/4507-3121_7-33973053.html?tag=mncolBtm;rnav
Asus G73JH-RBBX05>>
http://reviews.cnet.com/laptops/asus-g73jh-rbbx05/4507-3121_7-34041745.html?tag=mncolBtm;rnav

görebildiğim farklılıklar
a2 de 2 gb ram ve 500gb hdd fazlalığı
buna rağmen
rbbx05 teki ramlar 1333 mhz

göremediğim farklılıklar varsa belirtirseniz sevinirim.
yardımcı olanlara şimdiden teşekkür ederim
5 Yanıt Yanıtla Favorilere Ekle 0
D
dogusburak (Dogus Burak AKKOYUNLU) · Karakter ve Eşya Satışı altına konu açtı. 15 yıl

S>levl 81 warrior (orc) 480k np

Varsayılan S>levl 81 warrior (orc)

Level 81
480k np var
+5 görev kalkanı
karakterde

+7 Nebiros
+1 roc
+2 opal earring
+2 bronze earring
+8 undying seti
bir kaçtane de ismini unuttuğum eşya olacaktı.

g1 e üye değildi diye hatırlıorm ama kontrol eder düzeltirim eğer üye ise.
toplamda 300 lira istioruz herşey dahil
ister yüz yüze (eskişehir) ister havale.

0 506 400 13 69 >> doğuş dan ulaşabilirsiniz
dogusburak@windowslive.com
keyifli oyunlardilerim
8 Yanıt Yanıtla Favorilere Ekle 0
D
dogusburak (Dogus Burak AKKOYUNLU) · Delphi / C++ /Vb altına konu açtı. 16 yıl

Vd 6.0 da acil yardım lütfen

iyi gunler elde etmek istedigim uygulama
xx kişilik bir ad soyad listesini kaydeden ve sıralayan text dosyasını form üzerinde oluşturabilmek.

denediğim fakat çalıştıramadığım kodlar burda

Private Sub Command1_Click()


Open "c:\odev.txt" For Output As #1
For k = 1 To 10
s = Rnd(Rnd() * 100)
ad = InputBox(s & "notunu alan kisi adi")
Write #1, k, s, ad
List1.AddItem ad
Next
Close #1

End Sub

Private Sub Command2_Click()
Form2.Show

Open "c:\odev.txt" For Input As #1
Do
Input #1, ad
List1.AddItem ad
Loop While Not EOF(1)
Close #1

'Dim ad As adsoyad
Form2.Show
Open "c:\odev.txt" For Random As #1 Len = 40
n = LOF(1) / 40
For i = 1 To 10
'Get #1 & ad
Form2.Print k, ad,
Next i
Close
End Sub
burada kayıt ettiğim kişilerin listesini form üzerinde göremiyorum?



burdada bir sorunum var ben text kutusuna yazdıklarımın listbox üzerine eklenmesini istiyorum fakat bu tip başladığımda
Private Sub Command1_Click()
Open "c:\cuma" For Append As #1
Write #1, Text1, Text2
Print #1, Text3
Close #1
Text1 = "": Text2 = Text3 = ""
End Sub

text2 dekileri text3 e göstermiyor ve text2 üzerinde false yazıyor?
yardımcı olabilirseniz sevinirim iyi günler
1 Yanıt Yanıtla Favorilere Ekle 0
D
dogusburak (Dogus Burak AKKOYUNLU) · Karakter ve Eşya Satışı altına konu açtı. 16 yıl

Cypher GB=6YTL

eskişehir ankara
toplu alımlarda istanbul ve izmirde uygundur
4 Yanıt Yanıtla Favorilere Ekle 0
D
dogusburak (Dogus Burak AKKOYUNLU) · Karakter ve Eşya Satışı altına konu açtı. 16 yıl

S>level 75 warrior - +8/80 raptor

ytl karşılğı satılacaktır
raptorun fiyatı 125ytldir
warrior u uygun fiyata bırakmayı düşünüorum tam fiyat bilmesemde
6 Yanıt Yanıtla Favorilere Ekle 0
D
dogusburak (Dogus Burak AKKOYUNLU) · Karakter ve Eşya Satışı altına konu açtı. 16 yıl

B>1h javana axe +8

bu silaha sahip olan var mı ytl ile düşünüorum
2 Yanıt Yanıtla Favorilere Ekle 0
Hakkında
Konum: Eskişehir
Forum İmzası:
İmzanız kural dışıdır! :)
Hakkımda:
* Model: Asus G51JX-A1
Temel Bilgiler ve İstatistikler
Aktiflik: Şu anda DH'de değil
Son Giriş: 11 yıl önce
Son Mesaj Zamanı: 11 yıl
Mesaj Sayısı: 35
Gerçek Toplam Mesaj Sayısı: 105
İkinci El Bölümü Mesajları: 1
Konularının görüntülenme sayısı: 2.830 (Bu ay: 15)
Toplam aldığı artı oy sayısı: 1 (Bu hafta: 0)
En çok mesaj yazdığı forum bölümü: Free to Play - MMO
Mesajları
İkinci El Referansları
- x
Bildirim
mesajınız kopyalandı (ctrl+v) yapıştırmak istediğiniz yere yapıştırabilirsiniz.
Hizmet kalitesi için çerezleri kullanabiliriz. DH’ye girerek kullanım izni vermiş sayılırsınız.
Anladım Veri Politikamız