Çözüldü Farklı sayfadan veri çekmede hata

Ahmet

Destek Ekibi

Katılım

9 Mar 2021

Mesajlar

398

Çözümler

90

Aldığı beğeni

530

Excel V

Office 2024 TR

• 30 Ocak 2023

• #2

Merhaba

Hatayı da paylaşır mısınız?

 

Olumlu oy 0 Negatif oyla

tukayf

Yeni Üye

Katılım

19 Eyl 2022

Mesajlar

528

Çözümler

19

Aldığı beğeni

143

Excel V

Office 2019 TR

Konu Sahibi

• 30 Ocak 2023

• #3

Merhabalar. Hocam kodu çalıştırınca

SaySube = CInt(Left(Sube.Range("I" & Kont), InStr(1, Sube.Range("I" & Kont).Text, ".", vbTextCompare)))

Genişletmek için tıkla...

bu satırda hata veriyor işlem yapmıyor. Dosyadaki kodu çalıştırdığınızda hata devam ediyor.

 

Olumlu oy 0 Negatif oyla

Caylak

Destek Ekibi

Katılım

30 Kas 2022

Mesajlar

496

Çözümler

159

Aldığı beğeni

770

Excel V

Office 2013 TR

• 30 Ocak 2023

• #4

Merhaba,
Dosyanız güncellendi,
inceleyin.

 

Ekli dosyalar

Bu konu çözüme ulaşmıştır yüklü dosyaları indirmek için Bronz üye olunuz.

Bu dosyayı indirmek için yetkiniz bulunmamaktadır.

Olumlu oy 0 Negatif oyla

tukayf

Yeni Üye

Katılım

19 Eyl 2022

Mesajlar

528

Çözümler

19

Aldığı beğeni

143

Excel V

Office 2019 TR

Konu Sahibi

• 30 Ocak 2023

• #5

b2 = CInt(Left(Sube.Range("I" & x), InStr(1, Sube.Range("I" & x).Text, ".", vbTextCompare)))

Genişletmek için tıkla...

Hocam bu sefer orijinal dosyada bu hatayı verdi. Anlayamadım sebebini. Bir önceki veriler de orijinal şimdikiler de orijinal.

 

Olumlu oy 0 Negatif oyla

Caylak

Destek Ekibi

Katılım

30 Kas 2022

Mesajlar

496

Çözümler

159

Aldığı beğeni

770

Excel V

Office 2013 TR

• 30 Ocak 2023

• #6

tukayf' Alıntı:

Hocam bu sefer orijinal dosyada bu hatayı verdi. Anlayamadım sebebini. Bir önceki veriler de orijinal şimdikiler de orijinal.

Genişletmek için tıkla...

Örnek dosyada o hatayı gidermek için ilave kod eklemiştim, örnek dosya kodlarını aynen kullanın.

 

Olumlu oy 0 Negatif oyla

tukayf

Yeni Üye

Katılım

19 Eyl 2022

Mesajlar

528

Çözümler

19

Aldığı beğeni

143

Excel V

Office 2019 TR

Konu Sahibi

• 30 Ocak 2023

• #7

Ben son dosyayı kullanmamış mıyım, çok özür sanırım dosyaları indiridikten sonra karıştırdım.

 

Olumlu oy 0 Negatif oyla

tukayf

Yeni Üye

Katılım

19 Eyl 2022

Mesajlar

528

Çözümler

19

Aldığı beğeni

143

Excel V

Office 2019 TR

Konu Sahibi

• 30 Ocak 2023

• #8

Hocam son dosyanızı indirdim yine belirttiğim satırda hata var.

 

Olumlu oy 0 Negatif oyla

Caylak

Destek Ekibi

Katılım

30 Kas 2022

Mesajlar

496

Çözümler

159

Aldığı beğeni

770

Excel V

Office 2013 TR

• 30 Ocak 2023

• #9

tukayf' Alıntı:

Ben son dosyayı kullanmamış mıyım, çok özür sanırım dosyaları indiridikten sonra karıştırdım.

Genişletmek için tıkla...

If Sube.Range("H" & x) <> "" And Sube.Range("I" & x) <> "" Then
b2 = CInt(Left(Sube.Range("I" & x), InStr(1, Sube.Range("I" & x).Text, ".", vbTextCompare)))

Burada ( If Sube.Range("H" & x) ) eğer H sütunu boş değilse ve I sütununda da "." varsa b2'yi hesapla yoksa b2 ye sıfır değeri ver diyor

 

Olumlu oy 0 Negatif oyla

Caylak

Destek Ekibi

Katılım

30 Kas 2022

Mesajlar

496

Çözümler

159

Aldığı beğeni

770

Excel V

Office 2013 TR

• 30 Ocak 2023

• #10

Örnek olarak yüklediğiniz dosyada "H" sütununda 1.Grup "I" sütununda 1.Tim yazıyor.
Grup yazmayan satırlarda ise "H" sütunu boş ve "I" sütununda veri var
Orjinal verilerinizde "H" sütununda Grup harici başka bir veri mi var?


O halde şu şekilde bir kontrol dener misiniz?

If Sube.Range("H" & x) <> "" And Sube.Range("I" & x) <> "" Then
b2 = CInt(Left(Sube.Range("I" & x), InStr(1, Sube.Range("I" & x).Text, ".", vbTextCompare)))

kodunun ilgili satırını
If b1 <> 0 And Sube.Range("I" & x) <> "" Then

bu şekilde değiştirin.

 

Olumlu oy 0 Negatif oyla

tukayf

Yeni Üye

Katılım

19 Eyl 2022

Mesajlar

528

Çözümler

19

Aldığı beğeni

143

Excel V

Office 2019 TR

Konu Sahibi

• 30 Ocak 2023

• #11

Evet hocam H sütununda farklı veriler var ve boş hücre olması mümkün değil. Muhakkak bir birimde yer alıyorlar.

 

Olumlu oy 0 Negatif oyla

Caylak

Destek Ekibi

Katılım

30 Kas 2022

Mesajlar

496

Çözümler

159

Aldığı beğeni

770

Excel V

Office 2013 TR

• 30 Ocak 2023

• #12

Deneyin

 

Ekli dosyalar

Bu konu çözüme ulaşmıştır yüklü dosyaları indirmek için Bronz üye olunuz.

Bu dosyayı indirmek için yetkiniz bulunmamaktadır.

Olumlu oy 0 Negatif oyla

tukayf

Yeni Üye

Katılım

19 Eyl 2022

Mesajlar

528

Çözümler

19

Aldığı beğeni

143

Excel V

Office 2019 TR

Konu Sahibi

• 30 Ocak 2023

• #13

Maalesef hocam aynı satır yine sarıya boyadı.
H sütununun boş olma ihtimali yok. Hep dolu bu kodlar ile h sütununun grup dışındakileri sildiğim zaman kod çalışıyor.

 

Olumlu oy 0 Negatif oyla

tukayf

Yeni Üye

Katılım

19 Eyl 2022

Mesajlar

528

Çözümler

19

Aldığı beğeni

143

Excel V

Office 2019 TR

Konu Sahibi

• 30 Ocak 2023

• #14

Hocam sorunun kaynağını buldum tamamen benden kaynaklı. H sütununda farklı grup var. "M 1. Grup" gibi burada hata verip sonuç döndürmüyor. Onu nasıl çözebilirim.

 

Olumlu oy 0 Negatif oyla

Caylak

Destek Ekibi

Katılım

30 Kas 2022

Mesajlar

496

Çözümler

159

Aldığı beğeni

770

Excel V

Office 2013 TR

• 30 Ocak 2023

• #15

tukayf' Alıntı:

Hocam sorunun kaynağını buldum tamamen benden kaynaklı. H sütununda farklı grup var. "M 1. Grup" gibi burada hata verip sonuç döndürmüyor. Onu nasıl çözebilirim.

Genişletmek için tıkla...

Dener misiniz?

 

Ekli dosyalar

Bu konu çözüme ulaşmıştır yüklü dosyaları indirmek için Bronz üye olunuz.

Bu dosyayı indirmek için yetkiniz bulunmamaktadır.

Olumlu oy 1 Negatif oyla

Çözüm

tukayf

Yeni Üye

Katılım

19 Eyl 2022

Mesajlar

528

Çözümler

19

Aldığı beğeni

143

Excel V

Office 2019 TR

Konu Sahibi

• 30 Ocak 2023

• #16

Zahmet verdik hocam çok teşekkür ederim bu sefer oldu.

 

Olumlu oy 0 Negatif oyla

Caylak

Destek Ekibi

Katılım

30 Kas 2022

Mesajlar

496

Çözümler

159

Aldığı beğeni

770

Excel V

Office 2013 TR

• 30 Ocak 2023

• #17

tukayf' Alıntı:

Zahmet verdik hocam çok teşekkür ederim bu sefer oldu.

Genişletmek için tıkla...

Est. ne zahmeti, iyi günler

 

Olumlu oy 0 Negatif oyla