Excel dosyasini incelemek

[Kiwie]

Merhaba Arkadaslar,

ben Almanyadan katiliyorum, bana VBA konusunda yardimci olabilirseniz cok sevinirim.
Elimde suan bu VBA Codu var:

Sub Schaltfläche1_Klicken1()
  sn = Filter([transpose(if(ISTEXT(S3:S5056)*ISTEXT(V3:V5056)*ISnumber(W3:W5056),"","_"&row(3:5056)))], "_")
  MsgBox "Sıra:" & Chr(10) & Chr(10) & Join(sn, vbLf), vbExclamation, "Bulunan boşluklar"

End Sub

Elimde ki dosyala baska bir dosyayi incelemek istiyorum (C:\dosya\test1.xlsx).
Üsteki Codu nasil degistirmem lazimki test1.xlsx dosyayisini inceleyebilsin ?

tesekkürler

Kiwie

 

[Asri]

Merhaba Arkadaslar,

ben Almanyadan katiliyorum, bana VBA konusunda yardimci olabilirseniz cok sevinirim.
Elimde suan bu VBA Codu var:

Sub Schaltfläche1_Klicken1()
  sn = Filter([transpose(if(ISTEXT(S3:S5056)*ISTEXT(V3:V5056)*ISnumber(W3:W5056),"","_"&row(3:5056)))], "_")
  MsgBox "Sıra:" & Chr(10) & Chr(10) & Join(sn, vbLf), vbExclamation, "Bulunan boşluklar"

End Sub

Elimde ki dosyala baska bir dosyayi incelemek istiyorum (C:\dosya\test1.xlsx).
Üsteki Codu nasil degistirmem lazimki test1.xlsx dosyayisini inceleyebilsin ?

tesekkürler

Kiwie

Test1.xlsx dosyasında da yine aynı hücreler mi incelenecek?
sn = Filter([transpose(if(ISTEXT(S3:S5056)*ISTEXT(V3:V5056)*ISnumber(W3:W5056),"","_"&row(3:5056)))], "_")

 

[Kiwie]

Test1.xlsx dosyasında da yine aynı hücreler mi incelenecek?
sn = Filter([transpose(if(ISTEXT(S3:S5056)*ISTEXT(V3:V5056)*ISnumber(W3:W5056),"","_"&row(3:5056)))], "_")

evet ayni hücreler incelecek

selamlar..

 

[Asri]

evet ayni hücreler incelecek

selamlar..

Developer sayfasında \ Record Macro\ Store macro in bölümünde
Personal Macro Workbook u seçin \ Ok deyin Macro Stop deyin.

Vba bölümünde
PERSONAL.XLSB bölümünde Modul1 e makronuzu yapıştırın.

VBA ekranında Save yapın.

Şimdi de Customize the ribbon bölümünden New Tab ile üst panele yeni bir tab açın.
Choose command from dan Macro yu seçin
Makronuzu sağ tarafa yeni açtığınız TAB a taşıyın

Artık herhangi bir dosyada makronuzu kullanabilirsiniz.

 

[Kiwie]

Developer sayfasında \ Record Macro\ Store macro in bölümünde
Personal Macro Workbook u seçin \ Ok deyin Macro Stop deyin.

Vba bölümünde
PERSONAL.XLSB bölümünde Modul1 e makronuzu yapıştırın.

VBA ekranında Save yapın.

Şimdi de Customize the ribbon bölümünden New Tab ile üst panele yeni bir tab açın.
Choose command from dan Macro yu seçin
Makronuzu sağ tarafa yeni açtığınız TAB a taşıyın

Artık herhangi bir dosyada makronuzu kullanabilirsiniz.

@Asri : Tesekkürler yardiminiz icin, bu cözüm sadece tek kulanici ben olsam olur ama bir cok is arkadasida kulanmakta.
Kodu degistirme gib bir sansimiz yok mu ? Eksik olan tek sey C:\dosya\test1.xlsx.
Göründugu gibi basit bir mesele degil mi ?

tesekkürler

 

[Asri]

@Asri : Tesekkürler yardiminiz icin, bu cözüm sadece tek kulanici ben olsam olur ama bir cok is arkadasida kulanmakta.
Kodu degistirme gib bir sansimiz yok mu ? Eksik olan tek sey C:\dosya\test1.xlsx.
Göründugu gibi basit bir mesele degil mi ?

tesekkürler

Yok değil

Kodun için dosya seçimi yok.
Farklı öneriler olacaktır mutlaka.

 

[Kiwie]

Yok değil

Kodun için dosya seçimi yok.
Farklı öneriler olacaktır mutlaka.

Elimde ki dosyadan digeri dosayanin hücreler basit bir sekilde inceleyebilirim diye düsünmüstüm.
Göründügü gibi basit degilmis, hele benim gibi VBA`dan hic anlamayan biri icin.

Tesekkürler.