Soru 2 makro kodu tek bir düğme ile seçmek

[MOZCELİK53]

Merhaba 2 farklı buton ile kullanıyorum bu kodları tek bir düğmeye seçenekli olarak nasıl makro atayabilirim?


Sub home_YOL()

Sheets("TAM LİSTE").Select
Range("U6:U88").Select
Cells.Replace What:="mhozcelik", Replacement:="Reis", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
MsgBox Target & "HOME PC GÖRE FORMÜLLER DÜZENLENDİ ", vbInformation, "Bilgilendirme !"
Sheets("ANA MENÜ").Select
End Sub

Sub ofis_YOL()
Sheets("TAM LİSTE").Select
Range("U6:U88").Select
Cells.Replace What:="Reis", Replacement:="mhozcelik", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
MsgBox Target & "OFİSE PC GÖRE FORMÜLLER DÜZENLENDİ ", vbInformation, "Bilgilendirme !"
Sheets("ANA MENÜ").Select
End Sub

 

[ÖmerFaruk]

U6:U8 de her bir hücrede
eğer Reis yazıyorsa mhozcelik, mhozcelik yazıyorsa Reis
olarak değiştirmek mi istiyorsunuz?

Eğer buysa,
Mesala U6 da sadece Reis şeklinde mi yazıyor yoksa Reis bir ifade içinde mi geçiyor? Aynı soru mhözcelik için de geçerli.

 

[MOZCELİK53]

Ofis mi Ev mi Diye Sorsun ona göre komutlar çalışsın istiyorum

 

[MOZCELİK53]

="C:\Users\Reis\Desktop\NEWSS\"&B6&".jpg" bu formüldeki reisi değişmek için kullanıyorum kodları

 

[MOZCELİK53]

U6:U8 de her bir hücrede
eğer Reis yazıyorsa mhozcelik, mhozcelik yazıyorsa Reis
olarak değiştirmek mi istiyorsunuz?

Eğer buysa,
Mesala U6 da sadece Reis şeklinde mi yazıyor yoksa Reis bir ifade içinde mi geçiyor? Aynı soru mhözcelik için de geçerli.

Yol atayamadım beceremedim belki daha kolayı vardır .Böyle bul değiştir ile evdeki pc yada işteki pcye göre resim yolunu ayarladım .

="C:\Users\Reis\Desktop\NEWSS\"&B6&".jpg" bu formüldeki reisi değişmek için kullanıyorum kodları
="C:\Users\mhozcelik\Desktop\NEWSS\"&B6&".jpg" bu formüldeki reisi değişmek için kullanıyorum kodları

 

[ÖmerFaruk]

İlk kodlarınızı çalıştırmadan önce Formülleri göster seçeneğini mi aktif ediyorsunuz?

 

[MOZCELİK53]

Şöyle

İlk kodlarınızı çalıştırmadan önce Formülleri göster seçeneğini mi aktif ediyorsunuz?

Şöyle resim yolu bir sayfada gizli bir sütunda bi butonla aradaki pc ismini değişiyorum evde yada ofisde diye bilgi kartı gibi başka bir sayfada resmi getiriyorum

 

[ÖmerFaruk]

Sorunuzun başladığı yerle geldği yer birbirinden farklı hal almaya başladı.
İlk sorunuzda hücredeki ifadelerin içinden Replace yapacaktık.
Sonra hücredeki formülün içerisinde Replace oldu.
Şimdi son mesajınızla formülünüz de dosya yolunun bir başka hücreden alındığını söylüyorsunuz.
Ki formülle bu işlemi yapıyorsunuz çokgüzel. Zira formülün başvurduğu dosya yolunu belirten tek bir hücreyi Kod ile değiştirebilirsiniz.

Eğer halen yardım talep ediyorsanız neredeki neyi VBA ile değiştireceğiz?

 

[MOZCELİK53]

Sorunuzun başladığı yerle geldği yer birbirinden farklı hal almaya başladı.
İlk sorunuzda hücredeki ifadelerin içinden Replace yapacaktık.
Sonra hücredeki formülün içerisinde Replace oldu.
Şimdi son mesajınızla formülünüz de dosya yolunun bir başka hücreden alındığını söylüyorsunuz.
Ki formülle bu işlemi yapıyorsunuz çokgüzel. Zira formülün başvurduğu dosya yolunu belirten tek bir hücreyi Kod ile değiştirebilirsiniz.

Eğer halen yardım talep ediyorsanız neredeki neyi VBA ile değiştireceğiz?

istedğim böyle birşey ama hata veriyor

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
bilgi = MsgBox("OFİSDEMİSİN? ", vbYesNo)

If bilgi = vbYes Then
Sheets("TAM LİSTE").Select
Range("U6:U88").Select
Cells.Replace What:="Reis", Replacement:="mhozcelik", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False

Sheets("BİLGİ SORGULA").Select
MsgBox Target & "OFİSE GÖRE FORMÜLLER DÜZENLENDİ ", vbInformation, "Bilgilendirme !"


ElseIf bilgi = vbNo Then

Sheets("TAM LİSTE").Select
Range("U6:U88").Select
Cells.Replace What:="mhozcelik", Replacement:="Reis", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Sheets("BİLGİ SORGULA").Select
MsgBox Target & "HOME PC GÖRE FORMÜLLER DÜZENLENDİ ", vbInformation, "Bilgilendirme !"

End If
End Sub

 

[MOZCELİK53]

O kadar çok metoda başvurdumki excelde bende eror verdim kusura bakmayın .

 

[MOZCELİK53]

Formülün başvurduğu dosya yolunu belirten tek bir hücreyi Kod ile değişmek daha mantıklı geldi.

 

[ÖmerBey]

Merhaba,
Şöyle bir kod işinizi görür mü?
Mevcut kodlarınızın bulunduğu modüle kopyalayıp deneyiniz.

Sub kod()
sec = Application.InputBox("Çalıştırmak istediğiniz makro kodunu giriniz." & vbLf & _
                            "1 - Ev Bilgisayarı İçin" & vbLf & _
                            "2 - İş Bilgisayarı İçin", , , , , , , 1)
If sec = 1 Then
    Call home_YOL
ElseIf sec = 2 Then
    Call ofis_YOL
Else
    Exit Sub
End If

End Sub

 

[MOZCELİK53]

Merhaba,
Şöyle bir kod işinizi görür mü?
Mevcut kodlarınızın bulunduğu modüle kopyalayıp deneyiniz.

Sub kod()
sec = Application.InputBox("Çalıştırmak istediğiniz makro kodunu giriniz." & vbLf & _
                            "1 - Ev Bilgisayarı İçin" & vbLf & _
                            "2 - İş Bilgisayarı İçin", , , , , , , 1)
If sec = 1 Then
    Call home_YOL
ElseIf sec = 2 Then
    Call ofis_YOL
Else
    Exit Sub
End If

End Sub

Aynen budur çok teşekkür ederim.

 

[ÖmerBey]

Rica ederim,
İyi çalışmalar...